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 BASSCVT_OUT 16-Sep-1984 00:10:59 AX-11 Bi iss -32 v4.0 Page 1 
12-88-13 90:30:28 BASRTL. SRO} BASCVTOUT. 5 2:1 . (1) 
i3 1 0001 MODULE BASS$CVT_OUT ( ' Convert single or double float, ° Basic E, F, or G 
- § B08 gDEN T = '1-054' ! Fi Le :BASCVTOUT.B32 Edit: STA 
3 4 004 1 BEGIN 
13 5 0005 1! 
3 § Boos : gta iain iittala 

$ 'e 

; 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 

; 9 0009 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 

3 19 Baty : ‘* ALL RIGHTS RESERVED. * 

3 '® * 

3 \ Bog 1 !e rs SOF TWARE is ph Vel SHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
.e 0015 1 !* Y IN ACCORDANCE WITH THE rem S OF SUCH LICENSE AND WITH THE * 

; (16 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOF TWARE OR ANY OTHER * 

: 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

; 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

: i si $4 ' TRANSFERRED. * 

3 ‘t * 

: 19 0019 1 !s pn aot oye IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

; 20 0020 1 !* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

H $ b0S: ; » CORPORAT {DN * 

Ps : se 
ig: 0098 1 != DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

$ 24 024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

' 0025 1 !« * 

: @& 0026 1 !* * 

3 27 0027 1 lee ek area reek eee eee eRe AAA EATER AA AAAAA RTARTA AAARAAAAAAKAA AAA eee 

; oo 0028 1! 

; «& 0029 1 

:.- 0030 1 !++ 

; 0031 1 =! FACILITY: VAX-11 BASIC support 

; 0032 1! 

s os 0033 1 ! ABSTRACT: 

3; 0034 1! 

: % 0035 1! Convert a double or single precision Sloot tng qoine number to E 

; 6 0036 1! G format for VAX-11 BASIC. These routines w t support PRINT, bRINT® USING, 
ie 0037 1! NUMS, NUMI$, STRS$, and FORMATS. for E and F format, if the input value 

3 $ 0038 1! is single precision, a maximum of 6 significant digits are returned; for 

: 4 se ' : a double precision value, a maximum of 16 significant digits are returned. 
; re) apes : ENVIRONMENT: User mode - AST reentrant. 

3 $? 0048 ; : AUTHOR: Donald Petersen, CREATION DATE: 26-Jun-79 

3 45 045 1 ! MODIFIED BY: 

: 46 0046 1! 

3; «6467 0047 1! DGP. Stosynn?e VERSION 1 

; 448 0048 1! 1-001 = original 

; | «649 0049 1 ! 1-003 - Chahes - algorithm for determinig the number of significant digits 

s; $0 3230 1! we ask the kernel routine for. DGP 16-Jul-79 

a. we 0051 1 ! 1-004 = More work on Print Using. DGP 23-Jul- "9 

; Be 0036 1 ! 1-005 = Add E formatting for Print Using. DGP 27-Jul-79 

o> Se 0055 1 ! 1-006 = Change the conversion macros to JSB tous toes | te p_3gve space. DGP 30-Jul-79 
; | «54 0054 1 ! 1-007 = Continuing development of E format. ODGP 

s 9% 0055 1 ! 1-008 = Add optional arg. to BASSCVT_OUT_D_T for ao of digits in F format 

; +6 0056 1! before swichin to —E. ODGP so dy -79 

:. oF 0057 1! 1-009 - BasscyT _OUT_F_F does not set RT_RND when calling kernel conversion 


cc 


AS$CVT_OUT =1986 :59 -VAX#11 Bisse . 
¥ bse 18-Sep-1964 Hart mn VCE the hg Cee oP Page 4§ 


routine if V_FLT_DEC_PT is set in input flags. DGP bt * 
1-010 - Load KERNEL. BLOCK CSTRING_PTR] before checking for zero. DGP 


1-011 = Accept currency, radix point, and digit separator symbols as 
parameters in order to allow the BASIC user to change them. Can't 
do the translation here because te p S00 0+7 iggerpre er needs the 
lengths of some of the pyseols. 


1-916 - Scale factor is only a b te. yo5g- 
66 1-013 = Fix bug in Stes ing n BASSCVT but DL on Ov GP 06-Dec-79 
67 1-014 = When calling the kernal conversion routine, bias ‘right round’ by 
68 the scale factor in BASSCVI _OUT_D_F. DGP 63-Mar-80 
9 1-015 = Put the BUILTIN ACTUALCOUNT into fhe seen tens that need it, rather 


than at the module level, in anticipation of the next BLISS compiler, 
which will poqutrs it there. While we are here, make some 
gt gage 0 tee source text. Note that this edit changes 
ug- 
1-016 = FIX BASSCVT OUT DG, PLAIN_E_FORM_11 and PLAIN_F_FORM.11 to return status. FM 1-0¢T-80 
1-017 = Fix the PRINT USING, ‘SS##l#R', .01 REI & FM” 1=0CT-80 
1-018 = Fix bug of some fraction numbers prtae tng Sut as zero and correct 
error checking for am [ernet with negative numbers. Corresponds 
to bug version 14C and 14€. DGP 25-Feb-81 
Add sup ort for a feetio one H Aste Pat ao aye'st 
Add e~ E MPLOAT one 4 CY_E_HFLOAT tLe 8-Aug-81 
Add F format tor H floati of PLL 8-Sep-8 
Fix ney ne. Wee | ead oi t Rendle zero correctly). PLL 20-Oct-81 
Add Buk E "of COA PLL 22-Oct-81 
E format Tor h floatin should. round on the fifth digit. Also, 
fix PLAIN_F_FORM_11 and FANCY F Form. 3" ait that NUM1$ of 9 or h 
floating Can print out alt 308 or digi ts. PLL 23-Oct-81 
1-025 - a) Fas broke NUM1$ for BP ise so fix PLAIN_F and FANCY_F. PLL 
- Cc = 


oa 
“ 
OoOooooooooooooo 


SSSSSSSSSES 


89 0089 1-026 = Add support for formatting characters <CD>, <%> and <0>. PLL 25-Nov-81 
90 0090 1-027 = Collapse some rout ings into others, to cut down on the size of the 
91 0091 module. PLL 16-Dec-81 
92 009 1-028 = BASSCVT_OUT_x_F ay LE should not require all parameters. PLL 8-Jan-82 
93 009 1-029 = Fix typo in” last edit. PLL 8-Jan-1982 
94 0094 1-030 = Add evereat for packed decimal. PLL 12-Jan-1982 
95 0095 1-031 = BASSCV x.G routines should not assume an optional parameter 
96 00 seteten” oPLE 3-F eb-82 
97 0097 1-036 - Attempt to fix the case of packed decimal zero. PLL 12-Feb-82 
8 0098 1-033 = BASSCVT =P. T is no tPetes used so remove EXTERNAL declaration. PLL 17-Feb-82 
0099 1-034 = Add nooptimize to 1 of switches. This is temporary - the Bliss 
0100 compiler used for vas 3.0 optimizes away a afne of code. PLL 22- Feb-82 
1-035 = Fix bug in PLAIN_E_FORM_11 = max oreiss is 5 for hfloat. PLL 9-Mar-1982 
1-036 th trailing zeroes (ex. 100). 


- a bug in Print” Using Of numbers w q 
Leading_str_desc length wend to calculate trailing zeroes) must be 
initialized to zero. PLL 1 o-tere 2 : 

1-037 - Roger ive numbers should not print a minus sign when <CD> was specified 

byt he format string (Print Using). PLL 10-Mar-1982 

1-038 = OTSLNK.REQ should be required from RTLIN:. PLL 16-Mar-82 

1-039 = Fix length of zero_str_desc in Fancy _e fore 11. It should never be 

negative. Remove hooptimize. PLL 22-Mar-1982 

1-040 = The case *'.##'', .001 gnould round, not produce % .001 (PRINT 


' 1-041 - Fix the case ‘#.4#"’, .001. (Last edit broke this. > PLL 21-Jun-1982 
| debt) @ the cane ™ Ae, 0 phgute produce .00, not 20. PLL 27-Jul-1982 
i 1-043 - Fix the case “ear, 0, which the Last edit broke. Two macros for 
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: zero are needed = one for the A se of a fractional format, and one 

! for formats ris an Bye 

Aine et, “eaee =h94 or NUAI$( shich wes producing *'.0°’ instead of 

: ° -Sep= 

' 1-044 = the macros iattenoesé in edit 043 should set the entire value to 

! zeros, not just the first byte. MDL 1-Dec-1982 

i 1-045 = fix the case ‘#.awae '"', very small number. We would end up passing 
° Sn COMMON FDL pe A, a negative Length to STRSCONCAT when cailed 
‘ rom - 

! 1-046 = Local storage KERNEL pe should be initialized upon entry into 
‘ the COMMON, COMMON-F and COMMON_G oe ge there are code paths 
: thet can reference fields in it before it is set be ang woul 

‘ therefore get 9 garbag e unless it is initialized. Dec-1982 
! 1-047 = change logic inet ecks to see if a number is effectively zero 
} very stig 9 oi in order to fix bug of printing negative zero. 

! -Dec-1 

! 1-048 - change + Mh A for number B a4 ogeged seaging zeros slightly 
: in FANCY_F ron. ¢ Ai Mat MDL 10-Dec-198 

' 1-049 = fix minor Bug in 1-044; macro PUT_OUT ERO should zero out 

i NO_INT_DIGITS + mie HRac DIGITS, not just NO_FRAC DIGITS. Also 

! back out edit 1-048, it broke too many things. “ADL 10-Jan-1983 

! 1-050 - ote ANSI print support code. The only difference is in E-format 

: umbers, where the significand is between 1 & 10 rather than 0 @ 1. 
! See PLAIN" E_FOR RMT for details. MDi. 29-Mar-1985 

! 1-051 = reesic minor bug introduced in edit 1-050. cannot assume that 

! oT 7 CUR_LUB is defined. MDL d-Aprei 983 

! 1-052 = for PRINT USING, a currency field can end with <CD> as well as 

: with a minus sign in order to print a negative number. 

! MDL 27-Sep-1983 

! 1-053 - correct formatting for DECIMAL numbers that occupy less places 

' than reserved. MDL 24-Feb-1984 

1-054 = Remove informational errors. STAN 24-Jul-1984. 


! <BLF /PAGE> 


=o 
‘> 
ou 
ww 


fee ew ww ww wl wll olololololalololoal ola) 


NNN NSN NNN SN SN NU tt ot st 
ONAUSWN "OSC DOO ONAOUSWNR—O 


wv 
MEW HO OONAMNEWN OO ONAUNE WN OO DNOU EWN OO ODNOU EWN 
WAAIWNIW AIAN NAW ODOOD NUNIT 


OOOO OO DDH WD NIN SAI DAIN SIE EPA AAA AAR INI 


p> 4 


oomn 
ad etd ad edad ad ad Ded ad edad ad ae ead ed Dada aaa ded dada ed ead edad ad adabadbabadababababhababababad 


TRIP QPP PIN IIIA at at ast rt rt rt rt i kd td ot 


SOSCOCOOSSOCOOSSOOCOOOOOOOOOO OOOO OoOOOCoOOoOO 


SoooooooSo 
NOUS WN 


D 13 
16-Sep-1984 00:10:59 AX-11 Bliss-32 V4.0-74 
14 Sats 7 19 30:23 UBASRTL SRe BASCVTOUT .B52;1 


; SWITCHES 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
! 


LINKAGES 


REQUIRE *RTLIN:OTSLNK’; 
REQUIRE ‘RTLML:OTSLUB'; 


LINKAGE 

JSB_E_ FORMAT = JSB (REGISTER = 0, REGISTER = 1, REGISTER = 2, REGISTER = 3, 
REGISTER = 4, REGISTER = 5, REGISTER = 6, REGISTER = 7, REGISTER = 8, 
REGISTER = 9, REGISTER = 10) : PRESERVE (11), 

JSB_F FORMAT = JSB (REGISTER = 0, REGISTER = 1, REGISTER = 2, REGISTER = 3, 
REGISTER = 4, REGISTER = 5, REGISTER = 6, REGISTER = 7, REGISTER = 8, 
REGISTER = 9. REGISTER = 10, REGISTER = 11), 

JSB_G_ FORMAT = JSB (REGISTER = 0, REGISTER = 1, REGISTER = 2, REGISTER = 3, 
REGISTER = 4, REGISTER = 5, REGISTER = 6) : PRESERVE (7, 8, 9, 10, 11): 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
BASSCVT 


CVT_OUT_F_E, Convert float to E format 
BASSCVT_OUT_D_E, Convert double to E format 
BASSCVT_OUT_F_F, ' Convert float to F format 
BASSCVT_OUT_D-F, ! Convert double to F format 
BASSCVT_OUT_D_G, Convert double to G format 
BASSCVT_OUT_G_E, Convert gfloat to E format 
BASSCVT_OUT_G_F, ' Convert pitoat to F format 
BASSCVT_OUT_H_E, Convert hfloat to E format 
BASSCVT_OUT_G_G, Convert gfloat to G format 
BASSCVT_OUT_H_G, Convert hfloat to G format 
BASSCVT_OUT_H_F, Convert hfloat to F format 
BASSCVT_OUT_P_ Convert packed to F format 
BASSCVT_OUT_P_E, Convert packed to E format 
BASSCVT_OUT_P_G Convert packed to G format 


E processing common to all 


wv 

‘ 
~ 
7 


data types 
COMMON_F : JSB_F_FORMAT,  presese tag common to all 
ata es 
COMMON_G : JSB_G_FORMAT, G processing commcn to all 
ata es 
FANCY_F_FORM_11 : JSB_FORMAT_A11 NOVALUE, F format’ for PRINT USING 
FANCY_E_FORM_11 : JSB_FORMAT_A11 NOVALUE, E format for PRINT USING 
PLAIN_E_FORM_11 : JSB_FORMAT_A6, E format for STR$, NUM$, and PRINT 
PLAIN_F_FORM_11 : JSB_FORMAT_A6; F format for STR$, NUM$, NUM1$, and PRINT 
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Ve-Sep-1986 11:54:69 EBASRIL SRESBASCVTOUT 68251 298 (2) 


} ! INCLUDE FILES: 
1! 

REQUIRE "RTLIN:RTILPSECT’; 

LIBRARY "RTLSTARLE'; 

1 ' 

1 § MACROS 

1 1 

1 

1 MACRO 

1 RT_RND = 

+ ©, 0, de, Of, ! Value for right round 

1 ofr set = 

1 4, 0, 32, 0%, ! Offset to first non-zero digit 
1 ! in string returned 

1 DEC EXP = 

a. & & = ! Decimal exponent 

1 SIGN = 

> Woe OW, Seo. Vee ! Sign of returned value 

1 STRING. ADDR = 

1 16, 0, 32, 0%, ! String address 

1 $1G_DIGITS = 

1 20,0, 32, 0%, ! No. of significant digits 

1 CONV_FLAGS = 

1 26, 0, 32, 0%, ! Flags 

1 KERNEL_PTR = 

: 36, 0, 0, 02; ' Addr of block for kernel routine 
' <BLF /MACRO> 

1 MACRO 

1 PUT_OUT_ZERO = 

1 BEGIN 

1 KERNEL_BLOCK COFFSET] = 0; 

1 KERNEL-BLOCK [DEC EXP) = |; 

1 KERNEL BLOCK ESIGR = 0; 

K NEL BLOCK $1G_DIGITS) = 1; 

1 (.RERNEL_BLOCK CSTRING_ADDR])<0, 8> = %C'0'; 

1 CHSFILL TXC°O", .NO_LINT_DIGITS + .NO_FRAC_DIGITS, CHSPTR(.KERNEL_BLOCK [STRING_ADDR}) ); 
1 Bs 

1 MACRO 

PUT_OUT ZERO_FRACT = 

1 KERNEL_BLOCK [OFFSET] = 0; 

1 KERNEL~BLOCK [DEC EXP) = 6; 

1 KERNEL-BLOCK (CSIGR) = 0; 

ERNE Tk OCk, $iG_DIGITS) = 1; 

1 (,RERNEL_BLOCK CSTRING_ADDRI)<0, 8> = %C'0'; 

CHSFILL TZC'O", .NO_FRAC_DIGITS, CHSPTR(.KERNEL_BLOCK CSTRING_ADDR) ); 
q; 
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14-Sep-1984 11:54:49 BASRTL.SRC JBASCVTOUT .B8352;1 
ACRO 
INITIALIZE_DESC = 
DOT = UPLIT (BYTE (*.*)) 
STAR = UPLIT ( REP K_RANGE OF BYTE (**")), 
MINUS = UPLIT (BYTE T'=")), 
BLANK = UPLIT (BYTE (° ‘)), 
— = UPLIT (BYTE (°E')), 
BLANKS = UPLIT ( REP K_RANGE OF BYTE (° °)), 
ZEROES = UPLIT ( REP K_RANGE OF BYTE ('0')); 
If .E.D EQL 0 
THEN 
BEGIN 
M_D = MINUS; 
D_D = DOT; 
B"D = BLANK; 
ED=E; 
END 
! Convert long to packed ’ 
! Convert packed to leading sign 
! Compare packed 
PSECT DECLARATIONS: 
DECLARE PSECTS (BAS); 
= 1°25, ! right round bit for kernel routine | 
R_LEN_G = 25, ' Len. of gt toat string for kernel routine 
R_LEN_H = 50, ' Len. of Afloat string for kernel routine 
R_LEN_D = 25, ' Len. of double string for kernel output 
RALEN_F = 17, ' Len. of float string for kernel output 
—E = 38, ' the exponent of the largest floating pt. 
! number . 
RANGE = 308 ! largest exp. for g floating 
RANGE = 4932, ' Largest exp. for h floating 
RANGE = 4932, ' largest exp. for packed aa 
TRIP_SPACES = 1 ' bit flag - strip leading and trailing spaces 
RAILING SIGN = 2, ' bit flag - ng sign 
=f, ! bit flag - insert commas after ever 
ENCY = 8, ' bit flag - float the currency symbo 
= 16 ! bit flag - isk fill to the left 
DEC_PT = 32, i bit flag - float the decimal pt. in F format 
OD = 64, ! bit flag - insert a period 


3 digits 


K_NUM_P_SIG_DIG = 31, max number of significant digits 


in a packed decimal number 


H 13 
BASSCVT_OUT 16-Sep-1984 00:10:59 AX-11 Bliss-32 V4.0 Page 
1-054 1228e8 1382 90:30:28 BASRTL.SRC BASCVTOUT. 5 2;1 . 
4 0983 V. SUPPRESS _ZERO = 4096, ! bit flag - suppress zeroes 
| 5 984 V_LEADING_ZERO = 8192, ! bit flag = print leading zeroes 
$ 985 V_CR_DR = be ! bit flag - credit/debit 
| 986 VIANSI_PRINT = $2768, i bit. flag = program is. /ANSI 
8 098 K-NUM_F_SIG_DIG = 6, ' number of sign ticant digits returned 
9 0988 ! from a single precision conversion 
0 0989 K_NUM_D_SIG_DIG = 16, ! number of significant digits returned 
1 0990 ! from a double precision conversion 
| ¢ 0991 K_NUM_G_SIG_DIG = 15, ! number of significant digits returned 
| 3 099 ! from a g float conversion 
34 099 K_NUM_H_SIG_DIG = 33, ! number of significant digits returned 
} from an h float conversion 
' 
! 


aon 


: EXTERNAL REFERENCES: 


$s a4 K_KERNEL_BLK_SZ = 36; size in bytes of kernel routine parameter block 
40 0999 IND 

a H's PACKED_ZERO = UPLIT BYTE (REP 15 OF (%x°00"),2xK'°0C"); 
4 ! 

44 ' OWN STORAGE: 

45 ! 

46 

47 OWN 

re DOT_DESC : gt! pe (%xX°010E0001"), 

50 : INITIAL (%xX'010E0001"), 

51 “INITIAL (0), 

26 NOLL DESC : INITIAL (%x"010E0000'), 

54 BLANK DESC : INITIAL (%xX*010E0001"), 

55 “INITIAL (0), 

56 E“DESC : INITIAL (%X°010E0001'), 

57 E“D : INITIAL (0); 

58 

59 ' 

0 


WWAWAAAWNAA 
an 


ieee ROUT INE 
$STOP : NOVALUE 


signal general errors 
BASSSSIOP. NOVALUE, 


signal errors and stop 
String concatenate 
dealloc dynamic string 
create a string of chars 


69 TS$SSCVT"H_T_RB : JSB_CVT_KERNEL, OTS kernel conversion routines 
70 OTSSSCVT_G_T_R8B : JSB_CVT_KERNEL, OTS kernel conversion routine 
37 OTS$S$CVT_D_T_R8B : JSB_CVT_KERNEL; OTS kernel conversion routine 
7 EXTERNAL LITERAL 
374 BASSK_PRIUSIFOR : UNSIGNED (8), ! Print Using Format error 

375 OTS$_FATINTERR; ! Fatal internal RTL error 
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—BASSCVT_OUT 1b-Se 1984 09:10:59 AX-11 Bliss-32 V4.0-74 Page 
wt 10-380 - 1982 99:82 49 EBASRTL-SRCIBASCVTOUT.B 2:1 ~ 
3 A: 19 $ 1 GLOBAL ROUTINE BASSCVT_OUT_F_E ( , 

is oF 1 1 VALU ; 

3 380 1 8 1 NO_INT_DIGITS i 

+ 381 1 1 NO-FRAC_DIGITS, i 

is 38 1040 1 FLAGS, ; 
is 38 1041 1 BAS_OUT_STR_LEN, : 

(3 (384 ISS6 1 BAS _OUT STR, : 

13 2309 10435 1 CURRENCY ; 
b 386 1044 1 IGIT_SEP, i 

; 1045 1 RADIX_PT ; 

; 388 | 1 d= } 

; 389 1047 1 

; 390 10466 1 !+¢ 

3 4! He} 1 : FUNCTIONAL DESCRIPTION: 

3 39 1051 i ' Write out a single precision number in explicit point scaled notation 
; 394 1028 1 | (E format). This routine is called by the PRINT USING support of the 
3 336 ez : Basic language. It will return up to 6 significant digits. 

5 97 1055 1 ! FORMAL PARAMETERS: 

; 398 1056 1! 

3; 1057 1! VALUE .rf.r the value to be converted rc 

; 400 1058 1! NO_INT DIGITS.rlu.r number of eet go digits in output string 
; 401 1059 1! NO-FRAC_DIGITS.rlu.r number of fraction digits in output string 
; 402 1060 1! FLAGS.rTu.v no flags are applicable : 

; 403 1061 1! BAS_OUT_STR_LEN.wlu.v length of output string (handy for fixed Length 
; 404 1008 , 3 output strings 

; 405 1065 1! BAS_OUT_STR.wt.dx the output string 

; 406 1064 1! CURRENCY .rt.dxJ currency symbol 

; 407 1065 1! DIGIT_SEP.rt.dxJ digit group separator 

: 408 1066 1! CRADIX_PT.rt.dxJ radix point 

3; 409 1067 1! 

: 410 1068 1 ! IMPLICIT INPUTS: 

; 411 1069 1! 

3 a8 1070 1! NONE 

3 41 1071 1! 

3 416 1976 1 ! IMPLICIT OUTPUTS: 

: 415 1073 1! 

3: 416 1074 1! NONE 

3; 617 1075 1! 

: 418 1076 1 ! COMPLETION CODES: 

3; 419 1077 1! < 

; 420 1078 1! success the value could be converted as required. 

3: 421 1079 1! failure the value did not fit in the field described 

3; 6 ¢ 1080 1! the return string was truncated. 

; 4 1081 1! 
| 3 ri 1088 1! SIDE EFFECTS: 

: 425 1085 1! 

: 426 1084 1! NONE 

: 427 1085 1! 

; 428 1oee 1 !-- 

; op 1087 1 

: 430 1088 BEGIN 

3; «431 1089 

: 432 1090 LITERAL 

3: 433 1091 K_ARG_COUNT = 9; 

3 434 1092 


13 
BASS$CVT_OUT 1b-Se -1984 00:10:59 AX=11 Bliss=32 V4.0-74 Page 10 
bet? 1a-8ep-19 4 90:10:23 EBASRTL- RCIBASCVTOUT .B32:1 9 ta) 
: ¢ 2 1932 TOT UAL COUNT 
Hass, 1098 
638 1096 P 
': 439 109 RADIX_PT : REF BLOCK f. BYTE]. 
+ 640 1098 CURRENCY : REF BLOCK C. BYTE 
$641 1099 DIGIT SEP : REF BLOC BYTEd, 
wr 1100 BAS_OOT_STR_LEN : REF VECTOR, 
. oo 1101 VALOE : "REF VECTOR, 
> bb 1198 BAS_OUT_STR : REF VECTOR (2, LONG); 
1: 445 110 
ib 66 1104 LOCAL 
: 66 1105 STATUS; 
: 648 1106 
: 449 1107 IF ACTUALCOUNT () LSS K_ARG_COUNT THEN LIBSSTOP (OTSS_FATINTERR); 
: 451 1109 STATUS = COMMON. (.VALUE, .NO_INT_DIGITS, .NO_FRAC_DIGITS, .FLAGS, BAS_OUT_STR_LEN [0], 
: 45 1110 BAS_OUT STR~COJ, 0, .CURRENCY,~.DIGIT. SEP, .RADIX_PT, 
: 45 1111 DSCSK_DTYPE_F); 
: 454 1118 2 
: 455 1113 2 RETURN .STATUS; 
> 656 114 1 END; ‘End of BASSCVT_OUT_F_E 
.TITLE BASSCVT_OUT 
“IDENT \1-054\ 
-PSECT _BASSDATA,NOEXE, PIC,2 
010E0001 00000 poT_DESC: 
“LONG 17694721 
00000000 00004 D_D: “LONG 0 
010E0001 00008 MINUS_DESC: 
.LONG 17694721 
00000000 0000C m_D “LONG 0 
010E0000 00010 NOLL_DESC: 
SLONG 17694720 
00014 N_D: "BLKB 4 
010€0001 00018 BCANK_DESC: 
.LONG 17694721 : 
00000000 0001C¢ B_D: "LONG 0 : 
010E0001 00020 ETDESC: -LONG 17694721 F 
00000000 00024 E7D: “LONG 0 : 
-PSECT _BASSCODE,NOWRT, SHR, PIC,2 
00# 00000 P.AAA: .BYTE 0f15) 
OC 0000F “BYTE 1 
PACKED_ZERO= P.AAA 
-EXTRN LIBSSTOP, BASSSSTOP 
"EXTRN STRSCONCAT, STRSFREE1_DX 
“EXTRN STRSDUPL_CHAR, OTS$S$COT_H_T_R8 
TEXTRN OTSSS$CVT~G_T_ 
"EXTRN OTS$$C 
-EXTRN BASS$K_PRIUSIFOR 
OTS$ 


_FATINTERR 


----——- - - - ——_-_ —-——- — —_—--—-—— — - -_—-- - - r 


| K 13 
| BASSCVT_OUT 16-Sep-1984 00:10:59 AX-11 Bliss-32 v4.0 Page 11 
1-054 14-Sep-1984 11:54:49 BASRTL. SREIBASCV TOUT. 4 2;1 (4) 
OFFC 00000 «ENTRY BASSCYT OUT. F_E, Save R2,R3,R4,R5,R6,R7,R8,-; 1036 
09 6C 91 00002 CMPB (AP), #9 ; 1107 
| 0D 1€ 00005 BGEQU 1 : 
000000006 8F DD 00007 PUSHL #OTSS$_FATINTERR 
000000006 00 01 FB 0000D CALLS #1, LYBS$STOP 
5A OA 4 b0047 18: VL 
58 20 AC 7D 00017 
57 1¢ =6©aAC DO 00018 MOVL URRERCY, R7 
56 bs OO1F CLRL 3 
34 14 AC 7D 00021 MOVQ BAS _OUT_STR_LEN, R4 
2 Oc aC 7D 00025 MOVQ  NO_FRAC“DIGITS, R2 
50 04 AC 7D 00029 MOVa VACUE, RO 
0000V be 0002D BSBw COMMON_E ; 
4 00030 RET ; 1114 


; Routine Size: 49 bytes, Routine Base: _BASSCODE + 0010 


| 
: | 
: | 
: 
e } 
MO #16, R10 + 1110 
MOV Dicht SEP, RB : 
3 457 1115 1 


13 

| BASSCVT_OUT 16-Se 1984 00:10:59 AX=11 Bliss-32 V4.0-74 Pa 12 
bets 10 8¢b-1984 $9532 49 EBASRTL SRE BASCVTOUT .832;1 * (5) 
13 «6459 1338 1 GLOBAL ROUTINE BASSCVT_OUT_D_E ¢ , 
(3 «6460 1117 «4 i 
> 661 1118 1 NO_INT_DIGITS i 

: 46 1119 1 NO-FRAC_DIGITS, i 

; 46 1120 1 FLAGS, ; 

> 464 1121 1 BAS_OUT_STR_LEN, : 

; 465 11 ¢ 1 BAS_OUT_STR, : 

; 466 11 1 BAS’ SCACE_FAC, : 

; 467 1124 1 CURRENCY : 

; 468 1125 1 IGIT_SEP, i 

; 469 1126 1 IX_PT : 

; 470 1127 4 d= : 

> «471 1126 1 

3 Of 1129 1 !¢ 

: rth 1 9 ; : FUNCTIONAL DESCRIPTION: 

: 475 11 $ 1! Write out a double precision number in explicit point scaled notation 
; 476 1133 1! (E format). This routine is called by the PRINT USING support of the 
; ps at ' Basic language. It will return up to 16 significant digits. 

; 479 1136 1 ! FORMAL PARAMETERS: 

; 480 1137 7! 

3; 481 1138 1! VALUE .rd.r the value to be converted. : 

; 482 ior 3 ft NO_LINT_DIGITS.rlu.r number of nae (od digits in output string 
; 483 1140 1! NO-FRAT_DIGITS.rlu.r number of fraction digits in output string 
3; 484 1141 1! FLAGS.rTu.v no flags are applicable é 

: 485 Bp 7! BAS_OUT_STR_LEN.wlu.v length of output string (handy for fixed length 
; 486 1143 1! output strings. 

; 487 1144 1! BAS_OUT_STR.wt.dx the output string | 

: 488 1145 1! CBAS_SCALE_FAC.rb.vJ Basic scale factor in a range of 0 to -6 

; 489 1146 1! CCURRENCY rt .dxJ currency symbol 

: 490 1147 1! COIGIT_SEP.rt.dx] digit group separator 

; 491 1148 1! CRADIX_POINT.rt.dxJ radix point 

: 492 1149 1! 

; 493 1150 1 ! IMPLICIT INPUTS: 

3; 494 1151 1! 

3: 495 1152 1! NONE 

; 496 1335 7 

; 497 1154 1°! IMPLICIT OUTPUTS: 

; 498 1139 3? 

: 499 1156 1! NONE 

: 500 1157 1! 

: 501 1158 1 ! COMPLETION CODES: 

3 206 1159 1! : 

; 1160 1! success the value could be converted as required 

; 504 1161 1! failure the value did not fit in the field described 

; 505 1396 1! the return string was truncated 

: 506 1165 1! 

; 507 1198 1! SIDE EFFECTS: 

: 508 1165 1! 

; 509 1166 1! NONE 

3; 310 1167 1! 

g DTT 1168 1 !-- 

; 21g 1169 1 

g 2 1170 BEGIN 

3; «5146 1171 

3 395 1172 MAP 


o-oo 


; Routine Size: 47 bytes, Routine Base: _BASSCODE + 0041 


| 
M13 
| BASSCVT_OUT 16-Sep-1984 00:10:59 AX-11 Bliss -32 v4.0-7 Page 13 
M686 1o-e8- 1 3be 00:10:23 BASRTL. SRC IBASCVTOUT. 8 2:1 al 
ls §1 1173 RADIX_PT : REF BLOCK C, BYTE], 
i i$ 1174 CURRENCY : REF BLOCK : Bytes 
: 518 1175 DIGIT SEP : REF BLOCK C, BYTE) 
': 519 1176 BAS_SCALE_FAC : VECTOR (1, BYTE, SIGNED] 
; 520 117 TLSTR_LEN : REF VECTOR, 
: 2 1 1178 VALO VECTOR, 
: 3 ; 1179 BAS_OUT_STR : REF VECTOR C2, LONG) 
; 357 1181 LITERAL 
: 525 118¢ K_ARG_COUNT = 10; 
: 526 118 
; 2 7 1184 BUILTIN 
; 528 1185 ACTUALCOUNT; 
; 369 1186 
: 530 1187 LOCAL 
: 231 1188 é STATUS; 
; 338 1190 : IF ACTUALCOUNT () LSS K_ARG_COUNT THEN LIBSSTOP (OTS$_FATINTERR); 
; 535 1198 2 STATUS = COMMON NE .VALUE, .NO_INT_DIGITS, .NO_FRAC_DIGITS, .FLAGS, pBas _OUT_STR_LEN (0, 
: 536 119 : BAS_OUT 01, BAS. SCALE_FAC, .CURRENCY, .DIGIT_SEP, .RADIX. 
: 537 1194 DSCSK UOTYPE_D 
: 538 1195 2 
: 539 1196 2 RETURN .STATUS; 
: 540 1197 1 END; ! End of BASSCVT_OUT_D_E 
OFFC 00000 ENTRY BASSCVT OUT_D_E, Save R2,R3.R4,R5.R6,R7,R8,-; 1116 
OA 6C 91 00002 CMPBs« CAP), #10 + 1190 
0D 1€ 00005 BGEQU «s«1$ : 
000000006 8F DD 00007 PUSHL #OTS$_FATINTERR : 
000000006 00 01 FB 0000D CALLS #1, LTBS$STOP : 
SA OB DO 00014 1$: MOVL 14, R10 + 1193 
58 24 AC 7D 00017 MOVG DIGIT _SEP, R8 : 
56 1¢ AC 7D 0001B MOVQ BAS_STALE-FAC, R6 ; 
54 14 AC 7D OOO1F MOVO BAS"OUT_STR_LEN, R4& : 
52 0C AC 7D 00023 MOVQ NO FRAC“DIGITS, R2 : 
50 04 AC 7D 00027 MOVQ VACUE, RO 3 
0000v 30 00028 BSBW § COMMON_E : 
04 0002E RET : 1197 


3; 541 1198 1 
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< 
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MEW 0 ODNOAUE WIN 0 OONOAUE WN 9 ODNAUE WN 0 DOONAN EWN "OC OODNOAUEWWN—OO0 
ke ee ee ee el ee a ee ee ee ae ee ee a a ed ed a dd 


a 


cr 


AX-11 Bliss-32 V4.0-74 
BASRTL.SRCJBASCVTOUT.B352;1 


GLOBAL ROUTINE BASSCVT_OUT_F_F ( 


NO_INT_DIGITS 
NOTERAC_DIGITS, 


LAGS, 
BAS_OUT_STR_LEN, 
BAS-OUT-STR> 
CURRENCY 
DIGIT_SEP, 
) = RADIX?PT 


oz 
now 
Bow 
a= B=] 
te 
—s 
meme memes eresereresr= OO 
c@ooo 
oP 
—-o 
-—-o 
we 
+o 
ou 
ono 


lee 

; FUNCTIONAL DESCRIPTION: 
This routine converts a single precision number to explicit point un- 
scaled notation (F format) right justified, This routine supports PRINT 
USING and NUM1$. It will return up to 6 significant digits. 


FORMAL PARAMETERS: 


i 

i 

i 

i 

i 

i 

} VALUE .rf.r value to convert 

; NO_INT DIGITS.rlu.v number of integer digits 

: NO-FRAT_DIGITS.rlu.v number of fraction digits 

‘ FLAGS.rTu.v = 1, no leading or trailing space 

! = 2, trailing sign 

; = 4, insert commas 

: = 8, float purrency symbol = Het 
: = 16, * fill to left of most significant digit 
: = 32, lose ine decimal point. Disregard 
NO_INT_DIGITS and NO_FRAC_DIGITS. 
' = 64, a decimal point is réquired 

: BAS_OUT_STR_LEN.wlu.r length of return string 

: BAS_OUT_STR.wt.dx the return string 

' CCURRENTY .rt.dxJ currency symbol 

: COIGIT_SEP.rt.dxJ eigit group separator 

: CRADIX_PT.rt.dxJ radix point 

i IMPLICIT INPUTS: 

: NONE 

i IMPLICIT OUTPUTS: 

NONE 

i COMPLETION CODES: 

i success the value could be converted as required. 

: failure The value did not fit in the field described 

: the return string was truncated 

i SIDE EFFECTS: 

; NONE 


f 
| 
| 


3 
3 
| 


| 
| 
| 


i 
! 


| PARSEV TS OuT 


608 


POPMIMOPIPONDS — SOO 


POPES EES OAAAAAAA RA 5 


OOOWNA UF WN OC OONOUE WH OO 


ao 
Wr 
o 


3; Routine Size: 


i tk a kk a kd dt tt 
POPENoNoNononononononononononoponononononononononoponorornnnr 
AMIE WN OS OONAUES WN (0 ORONO UE WN OOO 


=POPIPPINIPIPIPIPIPINININININININININININININININNNININ 


50 bytes, 


BEGIN 


MAP 


BUIL 


RADIX PT : R 
CURRERCY : ‘. 
DIGIT rs 


BAS ooT TS 
ALOE sero 
BAS “OUT _STR 


beng. 


CREF VECTOR 


MOAR 


TIN 
ACTUALCOUNT; 


LOCAL 


STATUS; 


LITERAL 


K_ARG_COUNT = 9; 


IF ACTUALCOUNT () NEQ K_ARG_COUNT 


ELSE 


VECTOR (2, ‘tenths 


84 00:10:59 AX-11 Bliss-32 V4.0-7 

4 11:56:49 BASRTL’S Rela BASCVTOUT. 8 2:1 
.NO_FRAC_DIGITS, .FLAGS, 

fol, 0, StSk_DTYPE_F, 9) 
‘NOLFRAC DIGITS, FLAGS, BAS _OUT_STR_LEN (OJ, 
i2,~.CURRENCY, .DIGIT_SEP 


‘End of BASSCVT_OUT_F_F 


STATUS = COMMON_F (.VALUE, .NO_INT_DIGITS 
BAS_OUT~STR_LEN (01, BAS_OOT_STR 
STATUS = COMMON, F (.VALUE, .NO_INT_DIGITS, 
BAS_OUT STR COJ, 6, DSC$k_BTYPE_F. 
RETURN .STATUS; 
END; 
OFFC 00000 
SE 04 C2 00002 
09 6C 91 00005 
05 13 00008 
58 09 D0 O000A 
0B 11 0000D 
5A 20 AC 7D OOOOF 1$: 
59 1¢ AC DO 00013 
5g 0C 00 00017 
57 OA DO OOO1A 28: 
56 D4 6001D 
54 14 AC 7D OOO1F 
52 0c AC 7D 00023 
50 04 AC 7D 0027 
0000v 30 0002B 
6E 50 00 O00¢E 
04 00031 


Routine Base: 


-BASSCODE + 0070 


BASSCVT_OUT_F_F, 
R9 R11 


ae 
(AP), 


#9, RB 
2 


a9 


Pleas SEP, aa’? 


RENCY, 
He R8 
#10, R7 
R6 


RO. Mrs 


Save R2,R3,R4,R5,R6,R7,88,- 


BPeSe Se Se Se Se Se Se Se Ge Se Se Ge Se Se Se Ge Be 


1199 


1276 
1279 
1282 


1286 


—— 


orth Bliss-32 be Fh pe 
BASRTL.SRCJBASCVTOUT.B32;1 


Out 


ASSCVT 


=054 


8 


1287 1 


ow 
we 
eo 
< 
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AARAPAAAASAAAS 
PPO EEE 
NAME WN HO OONAUE WN OOODNOULEW 


659 


IN. ALAN nonononononornonororonor 
SDOOCCCOOOOOOOOOOWC 


ee ee en ee ee ee ee ee ee ee ee ee ee ee ee ee 
ooooo 
OONAUVE WN $C ODNAOUS WOO 


WWWNAWNANANINNINANNNNN NN WNANNW NN NNAIANNIANA 


BEE & BWANA III RNIN NINIDINID 2 OO SO OS oS 
ee a a a a a ee ee ee ee ee ee ee ee a ee a ed ed td ed 


FW 9 ODN UNE WIN  O ODNOA UE WN “OC OONOU SEWN Oo 


GLOBAL ROUTINE BASSCVT_OUT_D_F ¢ 


LUE 
NO_IN*_DIGITS 
NOTERAC. DIGITS, 


BAS_OUT_STR_LEN, 
BAS~OUT“STR- 

BAS aogace FAC, 
CURRENC 

DIGIT Were. 


RADIX=PT 
) zs 


lee 


FUNCTIONAL DESCRIPTION: 
This routine converts a 


e Se 1984 00: 
-seo- 
4 Sep 99: 


1 0:59 YAX=11 Bliss=32 v4.0 
14-Sep-1984 11:54: eSaascv 


double precision number to explicit point un- 


scaled notation (F format) right justified. This routine supports PRINT 


USING and NUM1$. It wil 
i FORMAL PARAMETERS: 
VALUE. ef 


r 
NO_INT_DIGITS.r®u.v 
NO-FRAT_DIGITS. ae 
FLAGS. rTu.v 


BAS_OUT_STR_LEN.wlu.r 
BAS OUT~STR wt. dx 
(BAS SCALE fhe: 1b. .v) 
CDIGIT_SEP.rt. dx] 
CRADIX_PT.rt. dx) 

i IMPLICIT INPUTS: 
NONE 

' IMPLICIT OUTPUTS: 
NONE 


' COMPLETION CODES: 


l return up to 16 significant digits. 


value to convert 
number of snteger digits 
number of fraction digits 
1, no leading or trailing space 
» trailing sign 
4, insert commas 
rent porrency tp symbol 
6, * fill to left of most significant digit 
32, floating decimal point. Disregard 
T_DIGITS and NO_FRAC_DIGITS. 
= 64, a decimal point is required 
Length of return string 
the return string 
Basic scale factor from 0 to -6 
serconsy symbol 
drgit group separator 
ix point 


success the value could be converted as required 
failure the value did not fit in the field described 


' 
' 
i] 
1 
' 
i 
t 
! 
t 
1 
t 
ft 
' 
i 
! 
4 
t 
! 
! 
' 
CCURRENCY.rt 
4 
! 
' 
1 
i] 
t 
1 
1! 
i] 
1 
1 
' 
1 
1 
¢ 
1 
t 
i 
1 


i SIDE EFFECTS: 
i NONE 


49 BASRTL. SRC} BASCVTOUT. 3 231 


14 
CVT_OUT 1hese =1984 :10:59 AX-11 Bliss-32 V4.0-74 Page 18 
BAStt ae at 90:10:23 BASRTL.SRCJBASCVTOUT.B32;1 9 07) 
690 1345 1! 
691 1 4g 1 i. 
69 1347 1 
69 1 48 BEGIN 
694 134 
695 1350 MAP 
696 1351 RADIX_PT : REF BLOCK C, BYTE] 
697 1 3 BAS SCALE_FAC : VECTOR C1, BYTE, SIGNED] 
698 135 CURRENCY = REF BLOCK C, BYTE) 
99 1354 DIGIT SEP : REF BLOCK (, BYTed, 
00 1355 BAS OOT_STR_LEN : REF VECTOR, 
701 1326 VALOE : id VECT 
£0 133¢ BAS_OUT_STR : REF VECTOR (2, LONG) 
704 1359 BUILTIN 
705 1360 ACTUALCOUNT; 
706 1361 
707 136¢ 2 LOCAL 
708 136 : STATUS; 
709 1364 
710 1365 2 LITERAL 
711 1366 2 K_SCALE = 7, 
rie 1367 2 KARG_COUNT = 10; 
71 1368 2 
at 1369 é IF ACTUALCOUNT () LSS K_SCALE THEN BAS_SCALE_FAC = 0; 
216 1371 : IF ACTUALCOUNT () NEQ K_ARG_COUNT 
718 1398 2 STATUS = COMMON_F (.VALUE, .NO_INT DIG ITs F NOF RAC DIGITS, .FLAGS 
719 1374 2 BAS_OUT~STR_LEN CO), BAS_OOT_STR £03, <BAS_SCALE_FAC, DSC$K_DTYPE_D, 
720 1375 2 9) 
721 1376 2 ELSE 
722 1377 2 STATUS = COMMON_F (.VALUE, .NO_INT_DIGITS, .NO_FRAC_DIGITS, .FLAGS, BAS _OUT_STR_LEN (01, 
723 1378 2 BAS_OUT STR [OJ], .BAS_SCALE_FAC, DSCSK_DTYPE_D, 12, * CURRENCY 
724 1379 2 -DIGIT_SEP, .RADIX_PTS; 
725 1380 2 
726 1381 2 RETURN .STATUS; 
727 1382 1 END; 'End of BASSCVT_OUT_D_F 
OFFC 00000 ENTRY BASSCVT OUT_D_F, Save R2,R3,R4,R5,R6,R7,R8,-; 1288 
SE 04 ¢2 00002 SUBL2 #4, SP ; 
07 6C 91 00005 CMPB. ss AP), #7 + 1369 
03 1€ 00008 BGEQU F 
1¢ AC 04 OOOOA CLRL BAS_SCALE_FAC : 
OA 6C 91 0000D 1$: CMPB 3s CAP, #10 : 1371 
05 13 00010 BEQL ; 
58 09 vd O12 MOVL #9, RB : 1374 
0B 11 0001 BRB ; 
SA 24 AC 7D 00017 28: MOVa = ODIGIT SEP, af! : 1378 
59 20 AC 00 00018 MOVL CURRENCY : 
58 OC DO O001F MOVL rie RB ; 
57 0B DO 00022 38: MOVL #11. R7 : 


6. gene] ” 99: 19: :59 AX-11 Bliss-32 V4.0 Page 19 


- 
| eassut out 1 

| 1 4:49 BASRTL.SRC IBASCVTOUT. iy 2:1 (7) 
| 55 18 AC 7D 00025 mova BAS OUT_STR, RS ; 

| 5 10 AC 7D 00029 mova F 

| 51 08 AC 7 0040 mova —NO-INF_DIGITS, Rt ; 

50 04 aC 00 00031 MOVL vACUE ,~ RO 3 
0000v 30 00035 BSBW toe F : 

| 6E 50 00 00038 MOVL RO, STATUS 3 


; Routine Size: 60 bytes, Routine Base: _BASSCODE + O0A2 


; 728 1383 1 


G 14 
BASSCVT_OUT 19~3007 138% 99: 10:32 AX-11 Bliss-32 v4.0 Page 4° 
1-054 14-Sep-1984 11:54:49 BASRTL.SRC BASCVTOUT. 5 2:1 (8) 
} Spe 1384 1 GLOBAL ROUTINE BASSCVT_OUT_D_G ( ' 
is 7@ ¢ 1 § 1 FLAGS, : 
* Te 1 1 BAS_OUT_STR_LEN, } 
a 734 1388 1 BAS_OUT_STR ' 
(3 735 1389 1 AS-SCACE_FAC, 
ls £3 1390 1 UM-DIGITS ' 
|: 737 1391 1 d= 
i; 738 1 8 1 
; 739 1393 1 !44 
: or : My : FUNCTIONAL DESCRIPTION: 
ls mg 1396 1! This routine converts a double precision number to either E or F format 
3; 74 1332 1} depending on its value. This routine supports PRINT, PRINT USING, NUMS, 
3 746 1398 1 | and STR$. If a number can be represented in six digits without any loss 
3; 745 1399 1: of accuracy then it is returned in F format. Otherwise, it is returned 
3; 746 1400 1} in E format. If the agt tenes we ne: NUM_DIGITS is included, then the 
3: 747 1401 1: number is roturert = format if it can be represented no less accur- 
3; 748 1008 1: ately in NUM_DIGITS 
3; 749 1403 1! 
3; 750 1404 1 | FORMAL PARAMETERS: 
3; 751 1405 1! 
: P36 1406 1! VALUE .rd. é the value to convert 
1407 1! FLAGS.rlu = 1, strip D pesesne and trailing space 
3 754 1408 1} BAS “OUT “SiR LEN. ww.r Length of the ete ng returned. Useful if return 
3 35 1409 1! string is static. 
3; 1410 1! BAS_OUT_STR.wt.dx return string 
3; 757 1411 1: CBAS_SCALE FAC. A v] the scale factor for double precision values. 
: 738 et : CNUM_DIGITS.rl.vJ number of digits in F format. 
; 760 1414 1 ' IMPLICIT INPUTS: 
: 761 1415 1: 
3; 762 1416 1: NONE 
3; 765 1417 1: 
3; 764 1418 1! IMPLICIT OUTPUTS: 
3: 765 1419 1! 
3; 766 1420 1 | NONE 
3 767 1421 1! 
: 768 1422 1 !| COMPLETION CODES: 
3; 769 1423 1! 
; 770 1424 1: success the value could be converted as required 
3 44. 1¢$? ! failure the value did not fit in the field described 
: 77 1427 1! SIDE EFFECTS: 
3; 774 1428 1! 
: 775 1663 1: NONE 
3; 776 1430 1! 
: 777 1431 1 j- 
; 778 1638 1 
; 779 143 $ BEGIN 
: 780 1434 
; 781 1435 § MAP 
; 78 1436 BAS_SCALE_FAC : VECTOR C1, BYTE, SIGNED), 
; 78 1437 BAST OUT_STR_LEN : REF VECTOR, 
: 784 1438 ALOE :~REF-VECTOR, 
; 785 1439 Bag _OUT_ eee : REF VECTOR (2, LONG); 
: 786 1440 


‘PAgEEV Tour 
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; Routine Size: 


ec aD ee ce eel ee ee ce ce ce eel ce ee el el ee ee ee 
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AAAAAAAAOOMUIVIWNUIVUIVIVIVER SES LLLLLS 
NMS OONAUE WN“ OOONAOUE WN OVOONOuU SW 


=PODNININPINININYINININININININIWIAIIPINIPIPIPUPPURIPUNINNNOPD 


SNNIO 


46 bytes, 


LITERAL 
K_NUM DIGITS = 6, 
K-SCACE = 5; 


LOCAL 
$16_D1G; 


BUILTIN 
ACTUAL COUNT; 


LOCAL 
STATUS; 


IF ACTUALCOUNT () LSS K_SCALE 
THEN 
BEGIN 
BAS_SCALE_FAC = 0; 
S1G-DIG ="K_NUM_F.SIG_DIG; 
END: 
IF ACTUALCOUNT () NEQ K_NUM_DIGITS 
S1G_DI1G = K_NUM_F_SIG_DIG 
ELSE 
$1G_DIG = .NUM_DIGITS: 


STATUS = COMMON. G (.VALUE, .FLAGS 


~BAS_SCALE_FAC, .SIG_DIG, DSC$k_DTYPE 
RETURN .STATUS; 
END; 
OFFC 00000 
05 6C 91 00002 
06 1€ 00005 
14 AC 04 00007 
55 06 DO OO000A 
06 6c 91 9000p 1$: 
05 13 00010 
55 06 00 00012 
04 11 0001 
55 18 AC 00 00017 28: 
56 0B DO 00018 3$: 
53 10 AC 70 OO01E 
5} 08 AC 7D 0002 
50 04 AC 00 00026 
0000v 30 0002A 
04 0002D 


Routine Base: _BASSCODE + OODE 


! Arg. position of number of digits 


AX-11 B 4.0-7 
BASRTL.SRC BASCVTOUT. : 2;1 


Bliss-32 V 


i Arg. position of scale factor 


! end of BASSCVT_OUT_D_G 


ENTRY poeaigyay Save R2,R3,R4,R5,R6,R7,R8,-; 


Ho 
1 


BAS_SCALE FAC 
DIG 


G 
#6 
#6, SIG_DIG 


BAS _OUT M LEN (OJ, BAS_OUT_STR [0], 


aie DIGITS, SIG_DIG 
oy “OUT _STR, R3 


LAGS, 
vA LUE . 
COMMON _ 


Ri 
RO 
G 


row 


1472 


— a 
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ease .ow 


| J 14 
BASSCVT_OUT 16-Sep-1984 00:10:59 AX=11 Blis 
‘G86 3 1e-8ep-1984 90:19:28 


=-32 v4.0-74 Pa 3 
BASRIL SREIBASCV TOUT. B92:1 “ei (33 


3: 820 1473 1 GLOBAL ROUTINE BASSCVT_OUT_G_E ( 

| 3 1 1474 1 L : 

t é 1475 1 NO_INf_DIGITS i 

t 1476 1 NO-FRAC_DIGITS, i 

13 4 1477 «1 FLAGS, : 

; 825 1478 1 BAS_OUT_STR_LEN, : 
; § $ 1479 1 BAS_OUT_STR, : 
3; 8 1480 1 CURRENCY ; 
(3 828 148) 1 DIGIT_SEP, i | 
; 562 186 1 RADIX_PT : 

; 850 1485 1 d= : 

; 831 1484 1 

; & § 1485 1 !4¢ 

3 83 1486 1 ! FUNCTIONAL DESCRIPTION: 

> 834 1487 1! : 

; 835 1488 1! Write out a G floating number in explicit point scaled notation 

; 836 1489 1! (E format). This routine is called by the PRINT USING support of the 

; eee saat : Basic language. It will return up to 15 significant digits. 

; 839 1492 1 ! FORMAL PARAMETERS: 

; 840 1493 1! 

; 841 1494 1! VALUE .rd.r the value to be converted : 

3 arg 1495 1! NO_INT DIGITS.rlu.r number of integer digits in output string 

; 84 1496 1! NO-FRAC_DIGITS.rlu.r number of fraction digits in output string 

3 844 1497 1! FLAGS. rTu.v no flags are applicable : 

3; 845 1498 1! BAS_OUT_STR_LEN.wlu.v length of output string (handy for fixed Length 

; 846 1499 1! output strings 

3 8467 1500 1! BAS_OUT_STR.wt.dx the output string 

> 848 1501 1! CURRENTY.rt.dxJ currency symbol 

; 849 1208 : 7 DIGIT_SEP.rt.dxJ etait group separator 

; 850 1503 1! RADIX_POINT.rt.dxJ radix point 

; «6851 1506 1! 

; 826 1505 1 ! IMPLICIT INPUTS: 

3s 8) 1506 1! 

3; 854 1507 1! NONE 

3 899 1508 1! 

; 856 1509 1 ! IMPLICIT OUTPUTS: 

; 857 1510 1! 

; 858 1511 1! NONE 

; 859 1ai¢ &. 

: 860 151 1 ! COMPLETION CODES: 

; 861 1514 1! é 

: 862 17 2 3 success the value could be converted as required 

3; 863 1318 1! failure the value did not fit in the field described 

: 864 rile the return string was truncated 

; 865 1518 1! 

; 866 1519 1 ! SIDE EFFECTS: 

; 867 1520 1! | 
; 868 1521 1! NONE | 
; 869 1356 1! 
; 870 1523 1 !e- | 
: ery 1358 1 
3; 87, 1525 BEGIN 

; 87 1526 

3; 874 1527 Pp 

; 6f> 1528 RADIX PT : REF BLOCK C, BYTE], 

: 876 1529 CURRENCY : REF BLOCK C, BYTE), 


| 


K 14 
BASSCVT_OUT 16-Sep-1984 00:10:59 AX-11 Bliss-32 v4.0-7 
wt 14- 3ep-1986 0: 54:49 BASRTL.SRCJBASCVTOUT. 5 2:1 
: 877 1530 DIGIT_SEP : REF BLOCK C eyTEI, 
: 878 1531 BAS_OOT _STR_LEN : REF VECTO 
: 879 1 : VALOE : "REF VECTOR, 
; 880 ; BAS _OUT_STR : REF VECTOR (2, LONG); 
PP a 
> B84 15 $ ait. ao 
: 885 1338 BUILTIN 
; 886 1539 ACTUALCOUNT; 
; 887 1540 
; 888 1341 LOCAL 
3; 889 1 ¢g STATUS; 
: 890 154 
3 891 1344 é IF ACTUALCOUNT () LSS K_ARG_COUNT THEN LIBSSTOP (OTS$_FATINTERR); 
: 893 1546 STATUS = COMMON £4 - VALUE -NO_INT_DIGITS, .NO_FRAC_DIGITS, .FLAGS, BAS_OUT_STR_LEN [0], 
; 894 1347 BAS_OUT_STR~LOJ, CURRENCY, ~.DIGIT.SEP,~ .RADIX_PT, DSCSK_DTYPE_G); 
: 896 1549 2 RETURN .STATUS; 
: 897 1550 1 END; 'End of BASSCVT_OUT_G_E 
OFFC 00000 ENTRY BASSCVT OUT _ G_E, Save R2,R3,R4,R5,R6,R7,R8,-; 
09 6C 91 00002 CMPBC«C AP), «#9 
D 1€ 00005 BGEQU _1$ 
000000006 8F DD 00007 PUSHL #OTS$_FATINTERR 
000000006 00 01 £B 0000D CALLS #1, LYIB$ST 

SA 1B DO 00014 1$: MOVL #27, R10 

58 20 AC 7D 00017 MOVO DIGIT SEP, R8 

57 1c AC dO poote MOVL CURRENCY, R7 

56 D4 OOOTF CLRL 

54 14 AC 7D 00021 MOVO §- BAS_OUT_STR_LEN, R4 

52 0c aC 7D 90025 MOV NO_FRAC“DIGITS, R2 

50 04 AC 7D 00029 mova vACUE, RO 

0000v 30 0002p BSBW 
04 00030 RET 

; Routine Size: 49 bytes, Routine Base: _BASSCODE + 010C 
: 898 1551 1 
: 899 1552 1 


roe 


1473 
1544 


1547 


1550 


L. ScvT out 


14 
18-Sep-19 4 00:10:59 AX-11 Bliss-32 V4.0-7 Pa 5 
5 12x 3007138 11:54:49 BASRTL.SRCJBASCVTOUT. 8 2:1 9 163 

| 

3 901 1553 1 GLOBAL ROUTINE BASSCVT_OUT_G_F ( ' 

; 90 1554 1 E : 

i; 90 1555 1 NO_INT_DIGITS 

3 904 1 26 1 NO “FRAC bdIGITSs, i 

3 905 1557 1 FL ‘ 

; 906 1228 1 BAS OUT _STR_LEN, ! 

; 907 1559 1 BAS OUT" STR, 

> 908 1560 1 CURRENCY : 

; 909 1561 1 DIGIT_SEP, i 

; 910 1 206 1 RADIX_PT : 

; (911 1563 1 d= ! 

; aig 1564 1 

3; (91 1565 1 !4¢ 

; 914 1566 1 ! FUNCTIONAL DESCRIPTION: 

s 915 1567 1! 

>; 916 1568 1! This routine converts a G floating number to explicit point un- 
s 97 1569 1! scaled notation (F format) right Justit fied. This routine supports PRINT 
§ at 1309 : USING and NUM1$. It will return up to 15 significant digits. 
; 920 1376 1 | FORMAL PARAMETERS: 

; 921 1573 1! 

; 922 1574 1 VALUE. :"¢; r value to convert 

; 923 1575 1! NO_INT DIGITS.rlu.v number of integer digits 

: 924 1576 1! NO-FRAT_DIGITS.rlu.v number of fraction digits 

: 925 1577 1! FLAGS.rTu.v = 1, no leading or trailing space 

> 926 1578 1: = 2, trailing sign 

; 927 1579 1: 2 3° insert commas 

; 928 1580 1 = float ferrency symbol 

3 368 138) : = is. F fill to ors F of most S eens digit 
: 931 1388 1 | = see OOENT BIGits and’NO FRAC. DIGITS, 
: 336 1584 1! = 64, a dee imal point is required 

s 9 1585 1! BAS_OUT_STR_LEN.wlu.r length of return string 

; 934 1586 1} BAS OUT-STRowt.dx the return string 

; «935 1587 1! CCURRENTY.rt.dxJ curcency symbol 

3; 9 1388 1! CDIGIT_SEP.rt.dx] etait group separator 

; 937 1589 1! CRADIX_PT.rt. dx] ix point 

; 9 1590 1! 

; 939 1591 1! 

: 940 1338 1 ' IMPLICIT INPUTS: 

: 941 1593 1! 

3 942 1594 1! NONE 

3 943 1595 1! 

3 944 1596 1 i IMPLICIT OUTPUTS: 

3 945 1597 1 

> 946 1598 1: NONE 

3 947 1599 1! 

: 948 1600 1 ' COMPLETION CODES: 

: 949 1601 1! 

; 950 ions 1 i success the value could be converted as required 

: 33) 1eR7 : failure the value did not fit in the field described 

3; «953 1605 1 | SIDE EFFECTS: 

: 954 1606 1! 

; 955 1607 1! NONE 

: 956 1608 1! 

: «957 1609 1 Ie. 
. 


M14 
BASS$CVT_OUT 16-Sep-1984 00:10:59 AX=11 Bliss-32 Vv Page 26 
mitt ba aett 1 11:54:49 BASRTLeS Afia BAScy TOUT. ys 2:1 . 188 
: 958 1610 1 
1: 959 1611 BEGIN 
'; 960 1618 
: 303 iet2 2 RADIX_PT : REF BLOCK [, BYTE] 
; : L , BYTE), 
: 308 1615 CURRENCY : REF BLOCK : BYTE] 
: 964 1616 DIGIT SEP : REF BLOCK (, BYTed, 
; 965 161 BAS _OOT_STR_LEN : REF VECTOR, 
: 966 1618 VALOE : "REF VECTOR, 
: 967 1619 BAS_OUT_STR : REF VECTOR C2, LONG) 
: 968 1620 2 
: 969 1621 y BUILTIN 
: 970 16 é ACTUALCOUNT; 
: 971 16 
: 97 legs LOCAL 
: 97 1625 STATUS; 
> 974 1626 : 
: 975 1627 LITERAL 
: 976 1628 2 K_ARG_COUNT = 9; 
: 977 1629 2 
: 978 1630 2 IF ACTUALCOUNT () NEQ K_ARG_COUNT 
> 979 1631 2 THEN 
: 980 1632 2 STATUS = COMMON_F (.VALUE, .NO_INT DIGITS, .NO_FRAC_DIGITS, “FLAGS, 
; 981 1633 é * BAS_OUT~STR_LEN (01, BAS_OUT_STR CO}, 0, DSCSK_DTYPE.G, 9) 
: 983 1635 2 STATUS = COMMON, F (.VALUE, .NO_INT spigits. .NO_FRAC_DIGITS, .FLAGS, BAS _OUT_STR_LEN (0J, 
> 984 1636 2 BAS_OUT mh COJ, 6, DSCSK_BTYPE_G. i2,~.CURRENCY, .DIGIT_SEP 
: 985 1637 2 .RADIX_PT) 
: 986 1638 2 
: 987 1639 2 RETURN .STATUS; 
: 988 1640 1 END; ‘End of BAS$SCVT_OUT_G_F 
OFFC 00000 ENTRY BASSCVT OUT_G_F. Save R2,R3,R4,.R5,R6,R7,R8,-; 1553 
SE 04 ¢2 00002 SUBL2 #4. : 
09 6c 91 90005 CMPB. ss (AP), #9 + 1630 
05 13 00008 BEQL =s«s1$ : 
58 09 DO OO00A MOVL #9, RB + 1633 
0B 11 0000D BRB 2$° : 
SA 20 AC 7D OOOOF 1$: MGVQ  DIGIT_SEP, R10 > 1636 
59 1¢ AC 00 00013 MOVL CURRENCY, RO : 
Sa OC DO 00017 MOVL #12, R8 : 
57 1B DO OOO1A 28: MOVL #27. R7 : 
56 D4 0001D CLRL = R6 F 
54 14 AC 7D OOO1F MOV OUT_STR_LEN, R4 : 
52 0c AC 7D 90023 MOVO NO FRAC~DIGITS, R2 F 
50 AC 7D 00027 MOV UE, ; 
0000v 30 00028 BSBW COMMON F F 
6E 50 dO O00¢E MOVL RO, STATUS : 
04 00031 RET > 1640 
3; Routine Size: 50 bytes, Routine Base: _BASSCODE + 013D 


eager" 


Page 46) 


pret Ot isga3e Ve 0 n7aG 
BASRTL.SRCJBASCVTOUT.8352;1 


1 


1641 


8 15 
BASSCVT_OuT 19=3007 138% 00:10:59 ret Bliss-32 V4.0-74 Page 48 
14-Sep-1984 11:54:49 BASRTL.SRCJBASCVTOUT .B52;1 (11) 


GLOBAL ROUTINE BASSCVT_OUT_H_E ( 


' 
VALU 
NO_INT_DIGITS 
NO-FRAC_DIGITS, 
FLAGS, ' 
BAS_OUT_STR_LEN, i 
BAS-OUT-STR> . 

1 

' 

' 


Segessssse ¥ 


3 od 1 

3 16435 1 

; 1644 1 

5 1645 1 

3 1968 1 

7 1 

: 1849 1 CURRENCY 

; 1650 1 1GIT_SEP, 

3; 1 1651 1 RADIX_PT 

; 1001 1926 1 )«s 

21 rt er 

; 1004 165 i FUNCTIONAL DESCRIPTION: 

; 1006 1689 1 i Write out an H bed number in explicit point scaled notation 
: 1007 1658 1! (E format). This routine is called by_the PRINT USING support of the 
: ines 1923 : } Basic language. It will return up to 33 significant digits. 

: 1010 1661 ; FORMAL PARAMETERS: 

; Its 1808 1 i VALUE.rd.r the value to be converted 

; 101 1664 1! NO_LINT DIGITS. rlu.r number of integer ergits in output string 
3; 1014 1665 1! NO-FRAC_DIGITS.rlu.r number of fraction digits in output string 
3 1015 1666 1! FLAGS.rTu.v no flags are applicable 

; 1016 1667 1! BAS_OUT_STR_LEN.wlu.v length of output string (handy for fixed length 
3 1017 1668 1! output strings 

; 1018 1669 1! BAS _OUT_STR.wt.dx the output string 

: 1019 1670 1! CURRENTY .rt.dxJ currency symbol 

3; 1020 1671 1! DIGIT _SEP.rt.dx] orait group separator 

: 1363 1or6 : } RADIX POINT. rt.dxJ radix point 

: 1998 1674 1! IMPLICIT INPUTS: 

3 1024 1675 1! 

ie tee tet 

> 1027 1678 1 | IMPLICIT OUTPUTS: 

3 1028 1679 1! 

meni = 

; 1031 1682 ! COMPLETION CODES: 

3 1033 1684 1! success the value could be converted as required 

3 1034 1685 1! failure the value did not fit in the field described 

3 Ht 1986 : the return string was truncated 

: 1037 1688 1 | SIDE EFFECTS: 

3; 1038 1689 1! 

3 1039 1690 1! NONE 

3; 1040 1691 1! 

: 1002 11 Bg 

; 1063 1694 3 BEGIN 

1068 1896 map 

> 1046 1697 ; RADIX_PT : REF BLOCK c. BYTE, 

3; 1047 1698 CURRENCY : REF BLOCK C, BYTE, 


15 
BASSCVT_OUT £ b2p-1984 00:10:59 AX=11 Bliss-32 V4.0-74 P 9 
8 b-8ep 138 09:30:23 BASRTL AS age 493 


s- 4.0 
«SRC JBASCVTOUT.852;1 


& 5 


; 1048 1699 DIGIT_SEP_: REF BLOCK C, BYTE), 

: 1049 1900 BAS_OOT_STR_LEN : REF VECTOR, 

; 1050 171 VALOE : REF VECTOR, 

3 198 1708 BAS_OUT_STR : REF VECTOR C2, LONG; 

; 10 g 1704 BUILTIN 

; 1054 1705 ACTUALCOUNT; 

: 1055 1706 

> 1056 1707 LOCAL 

: 1057 1708 STATUS; 

: 1058 1709 

: 1059 1710 LITERAL 

; 1060 Wit K_ARG_COUNT = 9; 

; 1062 1718 IF ACTUALCOUNT () LSS K_ARG COUNT THEN LIBSSTOP (OTS$_FATINTERR); 

: 1064 1715 5 STATUS = COMMON € (.VALUE, .NO_INT_DIGITS, .NO_FRAC_DIGITS, .FLAGS, BAS_OUT_STR_LEN [0], 
; 1065 1716 ; BAS_OUT_STR~LOJ, 0, .CURRENCY,~.DIGIT.SEP,~.RADIX_PT, DSCSK_DTYPE_H; 
3 1066 1717 ACTOALCOUNT ()); 

: 1067 1718 2 

; 1068 1719 2 RETURN .STATUS; 

> 1069 1720 1 END; 'End of BAS$CVT_OUT_H_E 


A CVT OUT_HLE, Save R2,R3,R4,R5,R6,R7,R8,-; 1642 

09 6C 91 00002 cMPB.C«#C A), #9 : 1713 
0D 1€ 00005 BGEQU F 
000000006 8F DD 00007 PUSHL #OTS$_FATINTERR : 
000000006 00 01 FB 0000D CALLS #1, LIB$STOP ; 

7E 6C 9A 00014 1$ MOVZBL (AP), <(SP) : 1717 
SA 1¢ pO 00017 MOVL #28, R10 ; 
58 20 AC 7D OOO1A MOVO DIGIT SEP, R8 ; 
57 1C AC DO OUODTE MOVL CURRENCY, R7 : 
56 D4 00022 CLRL = R6 : 
54 14 AC 7D 00024 MOVO §_BAS_OUT_STR_LEN, R4 : 
52 0c AC 7D 00028 MOVQ NO FRACTDIGITS, R2 : 
50 04 AC 7D 900¢¢ mova VACUE, RO : 
0000v 30 00030 BSBW  COMMON_E : 

4 00033 + 1720 


} 

| 

| 

' 

OFFC 00000 -ENTRY et) 
; Routine Size: 52 bytes, Routine Base: _BASSCODE + O016F 

| 


o 
SSSS 


ooo 
oovuono 
NOS 


So 
~o 
3S 


ooooofgo 
DOS DSO OE DDD TTT ES BB BB ANNI ponononononononor 
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mk kk ka ak kk tk sd td at ot tt SS SS hs SS Ss SS SS I SS SS Ss Ss Ss Ss Ss SS PF I OS DP SY DS SD OS IS SS 
ee ee ee me ee ee ee ee ee ee ee ee ee ed ed ed td td 


ee ee me ee ae a ee ce ee ee i ee ec ce ec ec ee ee a a ce a ce a a ed ed ee ed 
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NOUS Ww 


— 
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D 15 

o-300~ 1388 00:10:59 AX-11 

4-Sep-1984 11:54:49 BASRTL 

GLOBAL ROUTINE BASSCVT_OUT_G_G ( 
VALUE, 


' 
' 
FLAGS, i 
BAS_OUT_STR_LEN, ; 
' 
' 


BAS_OUT_STR, 
a NUM_DIGITS 


tb 
FUNCTIONAL DESCRIPTION: 
This routine converts a G floating number to either E or F f 


Oi legate aur ae 
«SRC JBASCVTOUT.B32;1 


ormat 
depend igo on its value. This routine supports age PRINT USING, NUMS, 
an 
i 


TRS. If a number can be represented in six dig 


ts without any loss 


of accuracy then it is returned in F format. Otherwise, it is returned 
in — format. If the optional argument NUM_DIGITS is included, then the 


number is returned in F format if it can be represented no less accur- 


i] 

i 

i 

i 

i 

i 

i 

ately in NUM_DIGITS. 

FORMAL PARAMETERS: 

VALUE .rd.r the value to convert 
: FLAGS.rlu.v = 1, strip paoesne and trailing space 
; BAS_OUT_STR_LEN.ww.r length of the strin 
: string is static. 

; BAS OUT _STR.wt.dx return string. 
CNUM_DIGITS.rl.vJ number of digits in F format. 
i IMPLICIT INPUTS: 

: NONE 

i IMPLICIT OUTPUTS: 

; NONE 

i COMPLETION CODES: 

} 

; 

i 

1 

i] 

i 

i] 


success the value could be converted as required. 
failure the value did not fit in the field described 


: SIDE EFFECTS: 
NONE 


BEGIN 


MAP 
BAS_OUT_STR_LEN : REF VECTOR, 
VALOE : REF VECTOR, 
BAS_OUT_STR : REF VECTOR C2, LONG); 


LITERAL 


g returned. Useful if return 


K_NUM_DIGITS = 5; ! Arg. position of number of digits 


15 
BASSCVT_OUT these -1984 00:10:59 AX-11 Bliss-32 V4.0-74 Page 31 
‘A054 ss ae 1 90:19:23 BASRTL. SRC JBASCVTOUT.B32;1 . a3 
> 1128 1778 BUILTIN 
$1129 1779 ACTUALCOUNT; 

1130 1780 

1131 1781 CAL 

1 é 178¢ Status 

1 178 DIG; 

1134 1784 

1135 1785 IF ACTUALCOUNT () NEQ K_NUM_DIGITS 

1136 1786 HEN 

1137 1787 $1G_DIG = K_NUM_F_SIG_DIG 

1138 1788 ELSE 

1139 1789 $1G_DIG = .NUM_DIGITS; 

1141 1791 STATUS = COMMON.G (.VALUE, .FLAGS, BAS_OUT_STR_LEN [0], BAS_OUT_STR (OJ, 

1148 1798 0, .S$1G_DIG; DSCSK_DTYPE_G); 

114 1793 2 

1144 1794 ; RETURN .STATUS; 

1145 1795 

1146 1796 1 END; ‘End of BASS$SCVT_OUT_G_G 


OFFC 00000 ~ENTRY passeyt To OUT_G_G, Save R2,R3,R4,R5,R6,R7,R8,-; 1721 
C 91 00002 CMPB (AP), AS : 1785 

5 13 00005 BEQL é 
6 DO 00007 MOVL #6, SIG_DIG 3: 1787 

4 11 QOOOA BRB § 
14 C pO 0000C 1$: MOVL NUM_DIGITS, SIG_DIG 3: 1789 
B DO 00010 2$: MOVL #27, R6 : 1791 

4 04 00013 CLAL R 3 

C 7D 00015 MOVQ BAS_OUT_STR_LEN, R2 3 

C 7D 00019 MOVa VALUE, RO 3 

* oodby 30 0001D BSBW COMMON_G 3 
04 00020 RET : 1796 


3; Routine Size: 33 bytes, Routine Base: _BASSCODE + 01A3 
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F 15 
VT_OuT 16-Sep-1984 00:10:59 AX-11 Bliss<-32 V4.0- 
14-Sep-19 4 90:19:28 ¢3 


74 Page 32 
BASRTL.SRCJBASCVTOUT.B352;1 . a3 


3 1308 1797 1 GLOBAL ROUTINE BASSCVT_OUT_H_G ( ! 
3 114 1798 #1 VALUE, ; 
3 1150 1799 1 FLAGS, ; 
is 1151 1800 1 BAS_OUT_STR_LEN, 
3 11 ¢ 1801 1 BAS_OUT_STR, 
3 11 1 be 1 NUM_DIGITS : 
3 11546 1803 1 zs ' 
3; 1155 1O0e 1 
3 1156 1805 1 !44 
3 1157 1a0e 1 ! FUNCTIONAL DESCRIPTION: 
; 1158 1807 1! 
3 1159 1308 1 ! This routine converts an H jreeting number to either E or F format 
: 1160 1809 1! depending on its value. This routine supports PRINT, PRINT USING, NUMS$, 
3; 1161 1810 1! and STR$. If a number can be represented in six digits without any loss 
3 1108 1811 #1! of accuracy then it is returned in F format. Otherwise, it is returned 
; 116 a , in E format. If the optional argument NUM_DIGITS is included, then the 
3 1164 181 1! number is returned in format if it can be represented no less accur- 
3 1165 1814 1! ately in NUM_DIGITS. 
3: 1166 1815 1! 
3: 1167 1816 1 ! FORMAL PARAMETERS: 
3; 1168 1817 1! 
3 1169 1818 1! VALUE .rd.r the value to convert 
3: 1170 1819 1! FLAGS. rlu.v = 1, strip leading and trailing space — 
: 1453 1330 ’ BAS_OUT_STR_LEN.ww.r - th of oe perme returned. Useful if return 
$ ! string is static. 
3 1173 18s6 Zz BAS OUT _STR.wt.dx return string. 
3 1174 1823 1! CNUM_DIGITS.rl.vJ number of digits 
3 1175 1824 1! 
3 1176 1825 1! IMPLICIT INPUTS: 
3 1177 1826 1! 
3 1178 1827 1! NONE 
3: 1179 1828 1! 
: 1180 1829 1°! IMPLICIT OUTPUTS: 
3; 1181 1830 1! 
3: 1182 1831 1! NONE 
3: 1183 1832 1! 
7 1184 18335 1 !' COMPLETION CODES: 
3; 1185 1834 1! ; 
3 1186 1835 1! success the value could be converted as required 
5 a 1936 ' failure the value did not fit in the field described 
3: 1189 1838 1 ! SIDE EFFECTS: 
: 1190 1839 1! 
3 1191 Hr 1! NONE 
3: 1192 1841 1! 
: 1193 Ho 1 !-- 
3 1194 18435 1 
3 1195 1844 BEGIN 
: 1196 1845 
3: 1197 1846 MAP 
3; 1198 1847 2 BAS_OQUT_STR_LEN : REF VECTOR, 
3 1199 1848 VALDE :~REF VECTOR, 
3; 1200 1849 BAS_OUT_STR : REF VECTOR (2, LONG]; 
3; 1201 1850 
: 1606 1851 LITERAL ; ee 
3 120 1336 K_NUM_DIGITS = 5, : Arg. position of number of digits 
3 1204 185 K_NUM_H_E_DIGS = 5; ! Only 5 digits in fraction for 


“BASSCVT. OuT 


PORONINININ 2 SS Ss OOOO 
MRVVUYSS eae aS sesSSS F 


ee oe oe i“ St ot ot os = 2 SS 2 = = = 1 9 Ls 


PMoPoPeRoNoTonononoponononoponofporereforory 


3; Routine Size: 


tk a a tt tt 
00 00 09 09 Cd C0 C0 09 C9 00 C0 CD CD CD CU CD CD CD CD CD CD 


SSN NSA A AAAAAAA Our 
FWN "OO ONS NEW" OOONOUSE 


—nronr 


33 bytes, 


BUILTI 


CAL 
STATUS 
$1G_D16; 


N 
ACTUALCOUNT; 


IF ACTUALCOUNT () NEQ K_NUM_DIGITS 
S1G_DIG = K_NUM_F_SIG_DIG 


ELSE 
SI1G_DIG = 


«NUM_DIGITS; 


15 
18. -Sep-19 : 0:10:59 
14-Sep-1984 


STATUS = COMMON_G (.VALUE, one BAS_OUT_STR_LEN COJ, BAS_OUT_STR (OJ, 
0, .S1G DIG, DSCSK_DTYPE_H 


RETURN .STATUS; 
END; 


Routine Base: 


Vir DPOOOO 
SOO LSOUM 


oC 
04 70 
0000v 30 
04 


Dd ad 
Oa 


_BASSCODE + 01C4 


™N— 


AX-11 Bliss-32 V4.0-7 Page 3 
1:54:49 BASRTL.SRCJBASCVTOUT. 8 2;1 (13) 
! h floating (6 for other data types) 
!End of BASSCVT_OUT_H_G 
«ENTRY BASSCVT_OUT_H_G, Save R2,R3,R4,R5,R6,R7,R8,-; 1797 
R9,R10,R11 ~ 5 
CMPB (AP), #5 : 1863 
BEQL 1$ : 
MOVL #6, SIG_DIG : 1865 
BRB 2s 3 
MOVL Out DIGITS. SIG_DIG : 1867 
MOVL #28, R6 3; 1869 
CLRL $ 
MOVQ BAS_OUT_STR_LEN, R2 3 
MOVQ VALOE, RO : 
BSBW COMMON_ G F 
RET 3: 1874 


SOOCCOOCOCOSCOSOC OOO OVO ODO OO OWDWDOWODWOowo Ins 


=—OOONOUSWUDN $0 OONOAUE WN 0 OONOAUEWWD 0 OONAUE WN (OV ONAUE WN" OOONOuW 


io 


NNNNNAN 
BES SRNR RAN APS SONS AR WOO WNE EW MH OODNOUE WOOO SOUP UNOS 
O0000 0000000000000 00.0100 0000 00 00 09 00 09 00 00 00 00 00 00 60 00.00 00.0000 0000 00 00.00 


me me ee a a a a 8 ek a ad a 2d od = = 2 = SS = 2 I = 
i ee er ee ee oO 


ee ee me ee ee ek ed ed od od = = = = od = =) = = 3 = = 
ee a ek a a se ss = = os = 4 ss 8 ss ss SS 3 = = ss Ss = = = os SS Ss SS SS YS 


oOOOOOOOOOODS 
WWnonofonononononory 


-1984 00:10:59 AX-11 Bliss-32 V4.0-74 Pa 34 
& 1938528 BASRIL SRE IBASCVTOUT B32; 1 1a) 


GLOBAL ROUTINE BASSCVT_OUT_H_F ( 


1 
LUE i 
NO_INT_DIGITS i 
NO FRAC_DIGITS, : 
BAS_OUT_STR_LEN, i 
BAS OUT~STR; ; 
' 

' 

' 


DIGIT_SEP, 
RADIX“PT 


144 
FUNCTIONAL DESCRIPTION: 


This routine converts an H floating number to_explicit point un- 

: scaled notation (F format) right justified. This routine supports PRINT 
USING and NUM1$. It will return up to 33 significant digits. 

FORMAL PARAMETERS: 

i VALUE .rd.r value to convert 

: NO_INT DIGITS.rlu.v number of amet 7 digits 

: NO-FRAT_DIGITS.rlu.v | number of fraction digits 

: FLAGS. rTu.v = 1, no leading or trailing space 

: = 2, trailing sign 

: = 4, insert commas 

; = 8, float perroncy symbol meets ee 
: = 16, * fill to left of most significant digit 
' = 32, floating decimal point. isregard 

} NO_INT_DIGITS and NO_FRAC_DIGITS. 

: : = 64, a decimal point is required 

: BAS_OUT_STR_LEN.wlu.r length of return string 

: BAS_OUT_STR.wt.dx the return string 

! CCURRENTY.rt.dxJ currency symbol 

: COIGIT_SEP.rt.dxJ digit group separator 

} CRADIX_PT.rt.dxJ radix point 

} 

IMPLICIT INPUTS: 

; NONE 

1 IMPLICIT OUTPUTS: 

; NONE 

i COMPLETION CODES: 

i success the value could be converted as required 

: failure the value did not fit in the field described 

i SIDE EFFECTS: 

NONE 


15 
BASSCVT_OUT 1b-Se 1984 00:10:59 AX-11 Bliss-32 V Page 35 
1-054 14-Sep-1984 9951028 BASRTL SREIBASCVTOUT.B B32;1 aa aT 
> 12846 19 3 1 
$1285 19 BEGIN 
+ 1286 1934 
: i 88 19 2 ne RADIX PT : REF BLOCK [, BYTE 
3 1289 19 $ CURRENCY : REF BLOCK ; BYTE 
3 1290 1938 DIGIT SEP _: REF BLOCK C, BYTE, 
: 1291 1939 BAS OOT_STR.LEN : REF VECTOR, 
: 1 36 1940 ALOE :~REF~VECTOR, 
: 129 1941 BAS _OUT_STR : REF VECTOR C2, LONG] 
E 1594 1948 
3 1295 194 BUILTIN 
13 1296 1944 ACTUALCOUNT ; 
: 1297 1945 
: 1298 1946 LOCAL 
; 1299 1947 2 STATUS; 
3 1300 1948 
> 1301 1949 LITERAL 
: 1308 1950 K_ARG_COUNT = 9; 
: 130 1951 2 
3 1304 1958 : IF ACTUALCOUNT () NEQ K_ARG_COUNT 
; 1305 195 H 
: 1306 1954 2 STATUS = COMMON_F (.VALUE, .NO_INT DIGITS, .NO_FRAC_DIGITS, .FLAGS, 
; 1307 1955 é aye BAS_OUT~STR._LEN (OJ, "BAS _00T_stR £03, 0, DST$K_DTYPE_H, 9) 
: 1309 1957 2 STATUS = COMMON. F | (. VALUE INT_DIGITS, .NO_FRAC_DIGITS, .FLAGS, BAS _OUT_STR_LEN C0J, 
; 1310 1958 2 BAS_OUT~STR COJ, 6, Dstsk K_BTYPE_H, i2,~.CURRENCY, .DIGIT_SEP 
: 1311 1959 2 ; “Bt: 
: 1312 1960 2 
> 1313 1961 2 RETURN .STATUS; 
> 1314 1962 1 END; ‘End of BASSCVT_OUT_H_F 
OFFC 00000 ENTRY BASSCVT OUT _H.F, Save R2,R3.R4,R5,R6,R7.R8,-; 1875 
SE 04 C2 00002 SUBL2 #4, : 
09 6C 91 00005 CMPB. ss (AP), #9 > 1952 
05 13 00008 BEQL=Ssé«dS ; 
58 09 D0 OO00A MOVL #9, RB : 1955 
0B 11 0000D BRB ; 
5A 20 AC 7D OOOOF 18: MOVO DIGIT SEP, R10 : 1958 
59 1¢ AC DO 00013 MOVL CURRENCY, R9 ; 
58 OC D0 00017 MOVL #12, RB : 
57 1C DO OOO1A 2$: MOVL #28, R7 ; 
56 04 0001D CLRL = R6 ; 
54 14 AC 7D OOOIF MOVG §BAS_OUT_STR_LEN, Rs ; 
52 oc ac 70 00025 MOVO NO-FR RACED DIGITS, R2 ; 
50 04 AC 7D 00027 MOVO VALUE. ; 
0000v 30 00028 BSBW COMMON ; 
6E 50 00 BOO es MOVL RO, STATUS 3 
04 00031 RET : 1962 


; Routine Size: 50 bytes, Routine Base: _BASS$CODE + O1E5 


—_---_-— -_—_—_—_--— —EEE ee 


‘paggevt_our 


| 


15 
1b-Se -1984 00:10:59 AX-11 Bliss-32 V4.0-74 Page 36 
17865-1984 11:54:49 EBASRTL-SRe BASCVTOUT.B32;1 | : (14) 


kK 15 
| BASSCVT_OUT 16-Sep-1984 00:10:59 AX-11 Bliss-32 V4.0-742 Page 37 
1-054 14-Sep-1984 11:54:49 BASRTL.SRCJBASCVTOUT.852;1 (15) 
13 } 1§ 1363 } GLOBAL ROUT INE BASSCVT_OUT_P_F ( 
: 1318 1965 1 NO_INT_DIGITS i 
+ 1319 1966 | NO FRAC_DIGITS, 
> 1321 1968 1 BAS_OUT_STR_LEN, i 
3 3 § 1969 1 BAS_OUT STR, : 
; 1 1970 7 CURRENCY ; 
: 1398 1972 | BSHi-BF i 
> 1326 1978 4 )= e 
3 3 sf 1974 1 
; 1328 1975 1 !44 
; 1363 1376 : : FUNCTIONAL DESCRIPTION: 
3 1331 1978 1! This routine converts a packed decimal number to explicit point un- 
; 1338 1979 1! scaled notation (F format) right justified. This routine supports PRINT 
; 133? 1300 ' USING and NUM1$. It will return up to 31 significant digits. 
: 1335 198¢ i FORMAL PARAMETERS: 
; 1337 1984 1! VALUE . rt .dx packed decimal string to convert 
; 1338 1983 3? NO_INT DIGITS.rlu.v number of integer digits 
; 1339 1986 1! NO-FRAC_DIGITS.rlu.v number of fraction digits 
3 1340 1987 1! FLAGS.rTu.v = 1, no leading or trailing space 
; 1341 1988 1! = 2, trailing sign 
3 i ak 1989 1! = 4, insert commas 
3 134 1990 1! = 8, float percents symbol he we 
3 1344 1991 1 | = 16, * fill to left of most significant digit 
3 1345 1992 1! = 32, lost ing decimal point. Disregard 
> 1346 1993 1! NO_INT_DIGITS and NO_FRAC_DIGITS. 
3 1347 1994 1! = 64, a decimal point is required 
: 18 1993 7 3 BAS_OUT_STR_LEN.wlu.r length of return string 
3 134 1996 1! BAS_OUT_STR.wt.dx the return string 
3; 1350 1997 1! CCURRENTY.rt.dxJ currency symbol 
s 1551 1998 1! CDIGIT_SEP.rt.dxJ digit group separator 
5 1326 444 : CRADIX_PT.rt.dxJ radix point 
; 1354 2001 | i IMPLICIT INPUTS: 
; 1356 2003 1 | NONE 
3 1357 2004 1! 
; 1338 +4 : IMPLICIT OUTPUTS: 
: 1360 2007 1} NONE 
: 1361 2008 1! 
; 1306 se ! : COMPLETION CODES: 
> 1364 2011 1! success the value could be converted as required 
; 1365 2012 1! failure The value did not fit in the field described 
: 1306 sole : the return string was truncated 
3 1368 e015 | i SIDE EFFECTS: 
; 1370 2017 1} NONE 
3 1371 2018 1! 
; 1372 2019 1 !-- 
| 
| 


| SAREE VT OUT 

jl 54 

ls 1373 020 1 

3 1374 021 
: 1375 0 ¢ 

': 1376 0 

\3 1377 024 
: 1378 025 
3: 1379 0 § 
5 130 0 
1382 059 
; 1388 $0%5 
Re HYG 
3 1339 5088 
3: 1387 2034 2 
: 1389 S086 
: 130) $088 5 
; 1336 2039 2 
3 139 2040 2 
3 1394 2041 2 
We Beg 
3; 1397 2044 2 
3 1398 2045 2 
: 1399 2046 2 
; 1400 2047 § 
3: 1401 2048 ; 
3; 1402 2049 2 
3 1403 2050 1 


3; Routine Size: 50 bytes, 


a 


15 
1bese -1984 00:10:59 AX-11 Bliss-32 V4.0-74 Pa 8 
12-8 08- 1 9p 11:54:49 BASRTL. SRC JBASCVTOUT.B32;1 ge 43 
BEGIN 
MAP 
RADIX_PT : REF BLOCK f. Byte). 
CURRENCY : REF BLOCK BYTE 
DIGIT. SEP : REF BLOCK (, BYTed, 
BAS OOT_STR_LEN : REF VECTOR, 
ALOE : “REF VECTOR, 
MG _OUT_STR : REF VECTOR (2, LONG) 
BUILTIN 
ACTUALCOUNT; 
LOCAL 
STATUS; 
LITERAL 
K_ARG_COUNT = 9; 
IF ACTUALCOUNT () NEQ K_ARG_COUNT 
STATUS = COMMON_F (.VALUE, .NO_INT DIGITS, .NO_FRAC_DIGITS, .FLAGS, 
ia BAS_OUT~STR_LEN (61, BAS_OUT_STR (03, 0, DSTSK_DTYPE_P, 9) 
STATUS = COMMON, F (VALUE, .NO_INT DIGITS, .NO_FRAC_DIGITS, .FLAGS, BAS_OUT_STR_LEN (OJ, 
BAS_OUT ptr CO], 6, DSC$K_BTYPE_P, 12,~.CURRENCY, .DIGIT_SEP 
RETURN .STATUS: 
END; 'End of BASS$CVT_OUT_P_F 
OFFC 00000 -ENTRY BASSCVT OUT _P_F. Save R2.R3,R4.R5,R6,.R7.R8,-; 1963. 
SE 04 ¢2 00002 SUBL2 #4. SP’ : | 
09 6C 91 00005 CMPB. sé AP), #9 > 2040 
05 13 90008 BEQL si : 
58 09 DO O000A MOVL #9, R8 > 2043 
0B 11 0000D BRB 2 : 
SA 20 AC 7D OOOOF 18: MOVa CODIGIT SEP. af! > 2046 
59 1¢ AC DO 00013 MOVL CURRENCY : 
58 OC DO 00017 MOVL #2, RB : 
57 15 DO OOO1A 28: MOVL #21. R7 ; 
56 D4 0001D CLRL = R6 F 
54 14 AC 7D OOO1F MOVG § BAS_OUT_STR_LEN, R : 
52 0C AC 7D 00023 MOVQ NO_FRACTDIGITS, R2 : 
50 04 AC 7D 00027 MOVa VALUE . RO : 
0000v 30 00028 BSBW COMMON F F 
6E 50 00 poo es MOVL RO, STATUS : 
04 00031 RET : 2050 
Routine Base: _BASSCODE + 0217 
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74 
BASCVTOUT.B32;1 (16) 
GLOBAL ROUTINE BASSCVT_OUT_P_E ( 


NO_INT_DIGITS 
NOFERAC DIGITS, 
r ° 
BAS_OUT_STR_LEN, 
BAS-OUT-STR; 
CURRENCY 
DIGIT_SEP, 
RADIX~PT 


+t 
FUNCTIONAL DESCRIPTION: 


Write out a packed decimal number in explicit potas scaled notation 
(E format). This routine is called by the PRINT USING support of the 
Basic language. It will return up to 6 significant digits. 


FORMAL PARAMETERS: 


VALUE .rt.dx the packed decimal string to be converted 

NO_INT DIGITS. rlu.r number of peers digits in output string 

NO-FRAC_DIGITS.rlu.r number of fraction digits in output string 

FLAGS.rlu.v no flags are applicable 2 

BAS_OUT_STR_LEN.wlu.v length of output string (handy for fixed length 
Output strings 


BAS_OUT_STR.wt.dx the output string 
CCURRENTY.rt.dxJ currency symbol 
CDIGIT_SEP.rt.dxJ digit group separator 
CRADIX_PT.rt.dxJ radix point 

IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
success the value could be converted as required. 
faiiure the value did not fit in the field described 


the return string was truncated. 
SIDE EFFECTS: 
NONE 


er te te te te ee ee ee ee 


BEGIN 


LITERAL 
K_ARG_COUNT = 9; 


BASSCVT_OUT 
mitts 

3 1463 109 

3: 14646 110 

3; 1465 111 

3; 1466 116 

3: 1667 11 

3 1468 114 

3 1469 115 
'3 1470 118 

3; 14671 11 
&E Vang 118 
13 147 119 
3 14674 120 
13 1475 121 

3; 1476 1 ¢ 

3 1477 1 

3: 1478 $is¢ 

3 1479 125 

3; 1480 126 § 
'3 1481 127 
E1288 159 $ 
1485 193 ¢ 
| 


; Routine Size: 49 bytes, 


3; 1485 2131 1 


ILTIN 
ACTUALCOUNT; 
MAP 
RADIX_PT : REF BLOCK C, BYTE 
CURRERCY : REF Bore BYTE 
DIGIT SEP : REF BLOCK t aries, 
BAS oor _STR_LEN : REF VECTOR, 
VALOE : REF VECTOR, 
BAS_OUT_STR : REF VECTOR (2, LONG); 
LOCAL 
STATUS; 


10:28 Axel! Bliss-32 v4.0 
4:49 


BASRTL.SRC BascytouT 8 251 


IF ACTUALCOUNT () LSS K_ARG_COUNT THEN LIBSSTOP (OTSS_FATINTERR); 


STATUS = COMMON_ 
BAS OUT STR 
DSCSK_DTYPE_P 


RETURN .STATUS; 
END; 


“t93:"0 - VALUE 


OFFC 00000 

09 6C 91 0000 
QD 1€ 0000 

00000000G 8F bd 00007 
000000006 00 01 Fe 0000D 
5A 15 DO 00014 
58 20 AC 7D 00017 
57 1¢ =AC DO 00018 
56 D4 O001F 

54 14 AC 7D 00021 
52 OC AC 70 00025 
50 04 AC 70 00029 
0000v 30 ait 

4 00030 


Routine Base: _BASSCODE + 0249 


1$: 


.NO_INT DIGITS, :NO. FRAC DIGITS, -FLAGS, BAS_OUT_STR_LEN (0), 
0, .CURRENCY,~.DIGIT.SEP,~.RADIX_ 


'End of BASSCVT_OUT_P_E 


«ENTRY ath OUT_P_E, Save R2,R3,R4,R5,R6,R7,R8,-; 


R10,R11 ~ ~ 
tae). ay 


1$ : 
#OTSS_FATINTERR ; 
#\, LIBSSTOP 3 

#21, R10 : 
DiGit SEP, RB ; 
CURRERCY, R7 ; 
BAS OUT STR_LEN, R4 F 
NO FRAC DIGITS, R2 ; 


VALUE, 
COMMON_E 


Page 
(1 


4! 
6) 


2052 


+ 2123 


: 2126 


S 2130 


| 
| 


| 16 
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$-32 V4 Page 42 
-Sep-19 BASRTL.SRCJBAS 


Vv ts 
CVTOUT.B352;1 (17) 


| 1487 GLOBAL ROUTINE BASSCVT_OUT_P_G ( 
16 14! 8 VALUE, ; 
13 1689 FLAGS, : 
3 1490 BAS_OUT_STR_LEN, 
3 1491 BAS-OUT-STR, 
NUM_DIGTTS 


++ 


FUNCTIONAL DESCRIPTION: 
This routine converts a packed decimal number to F format. (Packed decimal 
will never print in E format since it is defined to work the same as text. 
This routine supports PRINT, PRINT USING, NUM$, and STR$. 

FORMAL PARAMETERS: 


VALUE .rt.dx the value to convert 


' 

i 

i 

i 

i 

i 

i 

i 

i 

: FLAGS.rlu.v = 1, strip aa and trailing space 
: BAS_OUT_STR_LEN.ww.r length of the string returned. Useful if return 
: gtring is static. 

: — OUT STR.wt.dx return string. 

NUM_DIGITS.rl.vJ number of digits in F format. 

i IMPLICIT INPUTS: 

! NONE 

i IMPLICIT OUTPUTS: 

NONE 

i COMPLETION CODES: 

success the va .e could be converted as required. 

} failure the value did not fit in the field described 
i SIDE EFFECTS: 

NONE 

} 


BEGIN 


MAP 
BAS_OUT_STR_LEN : REF VECTOR, 
VALOE :~REF VECTOR, 
BAS_OUT_STR : REF VECTOR (2, LONG); 


LITERAL tps mei! 
K_NUM_DIGITS = 5; ! Arg. position of number of digits 


BUILTIN 
ACTUAL COUNT; 


LOCAL 


ke ek ee ee ee et ee a a ke ee dd 
000000900 09 09 09 09 SI SIN SIN SN SN SNA AAAE AAA AMI BB BEBE EE PWN 


PIPIPIPNYANYNINNINNININININIAININININININININYINININININIA IPIPUNIPPIPIPINOPOPIPONNONUPIPURIPOPOPOPOPPUPONUPURD 
DNAS WN OS ODNOAUS WN (OOO VANE WN CO OODNAUS WN S$ OOONAUESWWROOONOUS WI 


a ee ee ee ee ee ee ee ee ee ee eee ee 
POP IP NMA INIP INDI IRSP NIN) a a st a kd dd dd 


QDUPUDV PU PUD PUDPVDVPU DV IVITPUPUSVISIUDUSUSVSVUIVIT FUSES SUSU SISSIES 


BES BAAN NWI PINININONPUD 2 2 OS OO oocoo wooo 
HR OOO SAAR AN OOO NOUS NOOR NAME WW IO Dee UR ARAN OS ee 


SSS — 
Be Se Be Se ee Se Se Se Se Ge Be Ge Ge Ge Se Se Ge Ge Ge Se Ge Ge Se Ge Se Se Se Se Se Sse eee Se Se Se Ge Se Ge Ge Se Ge Se Se Gs Se Fe Se Se Se Se Se Se Se Se Se eee 


c- 


D 16 

“BASS$CVT_OUT 16-Sep-1984 00:10:59 AX-11 Bliss-32 V4.0-7 Page 43 
he ttaae et 00:19:28 BISRTL  SREIBASCVTOUT BS2s1 9° 47) 
5 1564 189 STATUS, 
ft 1645 190 DIGITS: 

i 1946 191 

i 1942 198 IF ACTUALCOUNT () NEQ K_NUM_DIGITS 

: 1549 194 DIGITS = K_NUM_P_SIG_DIG 

: 1950 195 ELSE 

: 1951 si DIGITS = .NUM_DIGITS; 

: 1888 198 STATUS = COMMONG (VALUE, «FLAGS, BAS_OUT.STR_LEN [0J, BAS.OUT_STR (OJ, 

: 1554 199 0, .DIGITS, DSCSK_DTYPE_P); 

: 1555 200 

> 1556 01 RETURN .STATUS; 

: 1557 20g 

: 1558 5508 3 END; ! end of BAS$SCVT_OUT_P_G 


RO RIO, : 2132 

05 6C 91 00002 CMPB (AP), #5 ; 2192 
05 13 00005 BEQL : 

55 1F 00 00007 MOVL #31, DIGITS ; 2194 
04 11 QOOOA BRB : 

55 14 AC DO 0000C 1$: MOVL NUM_DIGITS, DIGITS ; 2196 

56 15 DO 00010 2$: MOVL #21, R6 : 2198 
54 D4 00013 CLRL R : 
52 Oc AC 7D 00015 MOVQ BAS _OUT_STR_LEN, R2 : 
50 4 AC 7D 00019 MOVQ VALOE, RO : 
0000v 30 0001D BSBW COMMON_G ; 

04 00020 RET ; 2203 


OFFC 00000 «ENTRY pasecy! aos OUT_P_G, Save R2,R3,R4,R5,R6,R7,R8,=; 
; Routine Size: 33 bytes, Routine Base: _BASSCODE + 027A 

| 

| 

| 


ke a ee ee ee ee ee ea a ek et ee a a a kd dd 
REPIPOPIPIPNDNINNIDININNYPINYIDINYIPYNYINYNYINYNYINYIPINININPUDINPONYUNINUNIN NNO PINON NPN Ponononononouponsponoporornyd 
a ee ee ee ee ee ee ee ee ee ee ee ee eee ee! 


Be Se Se Be Se Se Se Se Se Fe Se Se Se Se Ge Se Se Fe Se Se Ge Ge Se Se Ge Fe Ge Ge Se Ge Ge Ge Se Ge Fe Ge Se Se Ge FF Se Se Ge Se Ge Se Se Se Se Se Ge Se Se Ge Ge Se ee 


3% 00:10:59 AX-11 Ol iesase V4.0-74 Page 44 
4 11:56:49 BASRTL.SRCJBASCVTOUT.B32;1 (18) 


terormimeaceraserasacasess WO 


ATA_TYP 
): JSB_E“FORMAT = 


lee 


FUNCTIONAL DESCRIPTION: 
Write out a number in explicit point scaled notation 


; (E format). This routine is called by the PRINT USING support of the 
: Basic language. The number of significant digits returned depends on 
the data type. 

FORMAL PARAMETERS: 

VALUE .rz.r the value to be converted. } 

: NO_LINT DIGITS.rlu.r number of integer digits in output string 

: NO-FRAC_DIGITS.rlu.r number of fraction digits in output string 

; FLAGS. rTu.v no flags are applicable - 

: BAS_OUT_STR_LEN.wlu.v length of output string (handy for fixed length 
; output strings. 

: BAS_OUT_STR.wt.dx the output string | 

! BAS-SCACE_FAC.rb.v Basic scale factor in a range of 0 to -6 

‘ CURRENCY .rt.dx currency symbol 

H DIGIT _SEP.rt.dx digit group separator 

: RADIX_POINT.rt.dx radix point 

DATA_TYPE.rl.v data type of element 

i IMPLICIT INPUTS: 

: NONE 

i IMPLICIT OUTPUTS: 

NONE 

i COMPLETION CODES: 

i success the value could be converted as required 

: failure the value did not fit in the field described 

: the return string was truncated 

i SIDE EFFECTS: 

: NONE 
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BEGIN 
MAP 
RADIX_PT : REF BLOCK f- erred. 
CURRENCY : REF BLOCK BYTE 
DIGIT_SEP : REF BLOCK C, BYTEd 
BAS_STALE_FAC : VECTOR (1, BYTE, SIGNED], 
BAS-OUT_STR_LEN : REF VECTOR, 
VALOE :"REF VECTOR, 
BAS_OUT_STR : REF VECTOR C2, LONG); 
LOCAL 
TEMP_STRING : VECTOR CK_TMP_STR_LEN_H, BYTE] ! temp string for kernel conversion result 
TEMP_PTR : REF VECTOR C> BYTE], } pointer into temp string 
NO_DIGITS, ' no. of actual significant digits returned 
! by the kernel conversion routine 
KERNEL_BLOCK : BLOCK CK_KERNEL_BLK_SZ, BYTE 
INITIAL” (REP (R_KERNEL_BLK_SZ2/4) OF (0)), 
$1G_D1G, 
RESOLT; 


KERNEL_BLOCK CSTRING_ADDR] = TEMP_STRING; 
SELECTONE .DATA_TYPE OF 


CDSC$K_DTYPE_P): 
BEGIN 
MAP 
VALUE : REF BLOCK (12,BYTE): 
RESULT = CMPP (VALUE CDSC$W_LENGTH], .VALUE CDSC$A_POINTER), 
MREF (15), PACKED_ZERO); 
END; 
COTHERWISE): 
RESULT = .VALUE (OJ; 
TES; 
IF .RESULT EQL 0 
THEN 


+ 


: If a zero value should be suppressed, then complete processing here, without 
: ee | PLAIN. or FANCY. formatting routines. ALl that needs to be output 
r 


:_ is a string of blanks. 


BEGIN 
4 ((.FLAGS AND V_SUPPRESS_ZERO) EQL 0) 


N 
PUT_OUT_ZERO 
ELSE 


BEGIN 
LOCAL BLANKS_STR_DESC : BLOCK (8, BYTE); 


INITIALIZE_DESC; 

BLANKS_STR_DESC CDSC$B_DTYPE] = DSCSK_DTYPE_T: 

BLANKS_STR_DESC CDSC$B_CLASS] = DSCSK"CLASS-S; 

BLANKS_STR_DESC CDSCSA_POINTER] = BLANKS; 

BLANKS STR-DESC CDSC$W°LENGTH] = .NO_INT DIGITS + .NO_FRAC_DIGITS 
+ TIF T.FLAGS AND J_TRAILING_SIGN) NEQ 0 THEN 1 ECSE OF 
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Ose sereep=foae 89:80i25 | PASAT she iaagcVtoor 6$2;1 39° 18) 
1/3 1674 18 + (IF (.FLAGS AND V CURRENCY) NEQ 0 
/3 1675 1 THEN .CURRENCY COSC$W_LENGTH) ELSE 0) 
676 0 + (IF (.FLAGS AND V_COMMAY NEQ 0 
| off 1 ree {KERNEL BLOCK COEC_EXPJ-1)/3 * .DIGIT_SEP COSC$W_LENGTH] 
679 g + ,RADIX_PT CDSC$W LENGTHS; 
680 4 STRSCONCAT (BAS_OUT_STR COJ, BLANKS_STR_DESC); 
681 2325 RETURN 1; 
ore $3 6 H 
68 327 END 
eas 358 ELSE 
ne eile 
688 336 i Figure out the number of significant digits to ask for. It is the minimum of 
689 33 ! the maximum that the data type can accurately hold or the total number of 
4 $30 } digits asked for subtracting one if the value is negative. 
3% 3 SELECTONE .DATA_TYPE OF 
37 SET 
38 CDSC$K_DTYPE_FJ: 


SIG_DIG = K_NUM_F_SIG_DIG; 
CDSC$K_BTYPE_DJ: 
SI1G_DIG = K_NUM_D_SIG_DIG; 
COSCSK_BTYPE_PJ: 
DIG = K_NUM_P_SIG_DIG; 
COSC$K_BTYPE_GJ: 
S G = K_NUM_G_SIG_DIG; 
COSC$K_BTYPE_HJ: 
S1G_DIG = K_NUM_H_SIG_DIG; 
COTHERWISE): 
LIBSSTOP (OTS$_FATINTERR); 


TES; 
KERNEL BLOCK CSIG_ DIGITS] = MIN (.SIG_DIG 
-NO_INT DIGITS + .NO_FRAC_DIGITS = (1 
KERNEL _BLOCR CCONV_FLAGS] = KERNEL_BLOC 
SELECTONE -DATA_TYPE OF 


CDOSC$K_DTYPE_FJ: 

OTSSSCVT_D_T_R& (. VALUE, KERNEL_BLOCK CKERNEL_PTR)); 
COSCS$K_DTYPE_DJ: 

OTSSSCVT_D_T_R8 (.VALUE, KERNEL_BLOCK CKERNEL_PTR); 
CDSC$K_DTYPE_PI: 

BEGIN 


'¢ 
' No kernei conversion routine so convert to text here and 
: set some parameters. 


0])<15, 1> EQL 1) THEN 1 ELSE 0)); 


zxo~ 


Pp 
VALUE : REF BLOCK (12, BYTE); 


LOCAL 
ZERO_CTR_: INITIAL (0), 
INT_BIGITS; 


CVTPS (VALUE CDSC$W_LENGTH], .VALUE [DSCS$A_POINTER], 
¥ VALUE COSCS$Q_LENGTHI, TEMP_STRING); 
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: Calculate the number of integer digits, excluding leading 
zeroes. 


TH] + .VALUE COSC$B_SCALE]; 
INC ; FROM 17 


- .ZERO_CTR; 
R; 


«KERNEL BLOCK CSIG_ DIGITS] 
ING_SIGNY EQL 0 THEN 1 ELSE 


ms 
; 


ELSE 
KERNEL_BLOCK CSIGN] = 1; 


END; 
CDSC$K_DTYPE_G): 
OTSS$CVT"G_T_R& (.VALUE, KERNEL_BLOCK CKERNEL_PTR]); 
CDSC$K_DTYPE_HJ: 
OTSSS$CVT_H_T_RB (.VALUE, KERNEL_BLOCK CKERNEL_PTRI); 
COTHERWISE): 
os LIBSSTOP (OTS$_FATINTERR); 


Do some error checking. Are there enough digits to return this number? 


IF (.KERNEL_BLOCK CSIGNJ LSS 0) 
THEN 
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"0" THEN ZERO_CTR = .ZERO_CTR + 1 
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IF (.NO_LINT_DIGITS LSS 1) OR ((.NO_INT_DIGITS EQL 1) AND (.NO_FRAC_DIGITS LSS 1)) THEN RETURN 0; 


! Adjust for the scale factor. The scale factor will be zero for data types 
other than doubie. 


KERNEL_BLOCK CDEC_EXP] = .KERNEL_BLOCK CDEC_EXP] + .BAS_SCALE_FAC (0); 


Check for the actual number of significant digits returned. 


IF .DATA_TYPE EQL DSCSK_DTYPE_P 
THEN 
BEGIN 
MAP 
VALUE: REF BLOCK 
TEMP_PTR = TEMP_STRI 
END 
ELSE 


(12, BYTE); 
NG + .VALUE COSC$W_LENGTH); 


TEMP_PTR = .KERNEL_BLOCK CSTRING_ADDR) + .KERNEL_BLOCK COFFSET] + .KERNEL_BLOCK CSIG_DIGITS] - 1; 


WHILE .TEMP_PTR (0) EQL %C°O* DO 
TEMP_PTR = .TEMP_PTR = 1; 


NO_DIGITS = .TEMP_PTR = (.KERNEL_BLOCK CSTRING_ADDR] + .KERNEL_BLOCK COFFSET]) + 1; 
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5 

4 

#1, KERNEL_BLOCK+8 
#1, KERNEL~BLOCK+20 
#1, NO_DIGITS 

#48, QRERNEL _BLOCK+16 


#0, (SP), #48, R6, AKERNEL_BLOCK+16 


398 
$ 
MINUS, M_D 
» 0D 
BLANK, ~B_D 
#2707 BLANKS _STR_DESC+2 
BLANKS, BLANRS_STR_DESC+4 
i. FLAGS, 6$ 


#3. FLAGS, 8$ 
@CURRENCY, R7 
9$ 

R7, RO 

#2. FLAGS, 10$ 
ai, KERNEL_BLOCK+8, R1 
aDIGIT_SEP, R2 
R2, RI 

11$ 

R1 

R1, RO 
@RADIX_PT, RO, BLANKS_STR_DESC 
BLANKS” STR_DESC 
BAS_OUT_ST 

#2, STRSCONCAT 
DATA_TYPE, #10 
#6, SIG_DIG 
DATA_TYPE, #11 
#16, SIG_DIG 
DATA_TYPE, #21 
#31, SIG_DIG 
A_TYPE, #27 
. SIG_DIG 
A_TYPE, #28 
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oe 11 00131 
000000006 8F DD 00133 17$: 
000000006 00 01 fe 0139 
68 BS 00140 189: 
05 18 00142 
50 01 dO 00144 
02 11 00147 
50 D4 00149 198: 
51 56 50 C3 00148 20$: 
51 6 D1 O014F 
03 15 00152 
52 31 DO 00154 
44 KE 52 DO 00157 218: 
30 AE 04 00158 
48 AE D4 0015E 
OA 5A Di 00161 
05 13 00164 
08 5A Di 00166 
OF 12 00169 
51 54 AE YE 00168 22$: 
50 5B DO 0016F 
000000006 00 16 00172 
78 «11 00178 
15 SA D1 OO17A 238: 
50 12 00170 
54 D4 0017F 
68 04 6B 68 08 00181 
51 68 3C 00188 
50 08 AB 98 00188 
51 50 CO 0018F 
50 D4 00192 
09 11 sdb 
30 54 AE4O 91 00196 248: 
06 12 00198 
54 D6 00190 
F3 50 51 F353 OO19F 258: 
38 = AE 51 54 C3 O01A3 268: 
34 AE 01 A& YE 001A8 
2D 54 AE 91 OO1AD 
16 12 00181 
3C Ss AE 01 CE 00183 
05 20 «AE 01 €0 00187 
50 01 00 0018C 
06 11 0O1BF 
50 D4 001C1 278: 
44 AE 50 C2 001C35 28$: 
38 11 001C7 
3C AE 01 DO 001C9 29$: 
35 11 001CD 
1B 5A D1 OOICF 30$: 
OF 12 00102 
51 54 AE 9E 00104 
50 5B DO 00108 
000000006 00 16 00108 
¢} 11 QO1E) 
1¢ A D1 OO1ES 318: 
OF 12 0016 
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S$_FATINTERR 
LTB$STOP 


ERNEL_BLOCK+20 

KERNEL_BLOCK 

KERNEL ppeocks24 
DATA_TYPE, #10 

DATA_TYPE, #11 
KERNEL_BLOCK+36, R1 
VALUE, R 

OTs$$CV1_D_T_R8 


DATA_TYPE, #21 
30$ 


CTR 
@4(VALUE), (VALUE), 
(VALUE), IN NT_DIGITS 


ED, 
RO, INT DIGITS 


TEMP_STRING 


“STRINGCIJ, #48 


1, 24$ 
‘ "Stat DIGITS KERNEL_BLOCK+8 
ERNEL Kod 
TRING, re 
NEL_BLOCK+12 
S$," 27$ 


RO, KERNEL_BLOCK+20 
1, KERNEL_BLOCK+12 
ATA_TYPE, #27 
KERNEL -BLOCK+36, R1 
TS$SCVI-G_T_RB 


DATATYPE, #28 
3$ 
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000000006 4 if 1eF ‘ Js8 I EvT_H_T_R8 ; 
scccecees cg OOS iF? 333 PUSHL —#OTSS _FATINTERR ; 2399 
3¢ ae D3 00204 348: STL” ANEL BLOCK+12 : 2405 
1¢ AE p 0 09 ste NO_INT_DIGITS : 2408 
01 1¢ A p} 0 13 CPL NO_INT_DIGITS, #1 : 
wm A 08 1 TSTL NO_FRAC_DIGITS ; 
69 15 00217 BLEG 46s 418 F 
50 18 AE 98 00219 35$:  CVTBL BAS_SCALE_FAC, RO + 2414 
38 AE 50 CO 9021D ADDL2 RO KERNEC_BLOCK+8 ; 
1 3A b 00 1 CMPL ATALTYPE, #21 ; 2418 
50 54 OE 3 00226 MOVAB TEMP_STRING, RO : 2423. 
51 B 3C 0022A MOVZWLE (VALOE), R1 : 
50 1 ¢0 0022D ADDL2 1, TEMP_PTR : 
0€ 11 00230 BRB 37$ 3 241 
51 40 AE 34 AE C1 00 é 36$:  ADDL3 KERNEL_BLOCK+4, KERNEL_BLOCK+16, R1 + 242 
51 44 AE CO 0023 ADDL2 KERNEL~BLOCK+20, R1 : 
50 FF Al 9E 0023C MOVAB -1(R1), TEMP PTR : | 
30 60 91 00 40 37$: CMPB (TEMP_PTR), 948 ; 2428 
50 7 osts BELL Tear ; 2429 
52 40 AE 34 AE C1 00949 38$: ADDL 3 KERNEL BLOCK +4, KERNEL_BLOCK+16, R2 } 2431 
24 «OA 01 52 £¢ 00¢5¢ art R2, #1, NO DIGITS F 
54 30 AE 4 3 00257 398: MOVAB KERNEL BLOCK, R4 3 243 
59 6— D 8 58 MOVL BAS_OUT_STR_LEN, R9 3 243 
58 04 AE D0 0 <6 MOVL BAS-OUT“STR> R ; 
56 OC AE 7D 0026 MOVG DIGIT SEP, R6 ; 
ROAR BS Biss Bate UREN : 
52 34 AE 00 0266 MOVL  NO_DIGITS, R2 : 
51 4 AE dO 027 MOVL NO-FRAC_DIGITS, R1 ; 
50 1c AE 2 0276 MOVL NO-INT_BIGITS, RO 3 
0000v 30 0027A BSBW =—s FANCY_E_FORM_{1 ; 
50 o b0 0027D 40$: ROVE a" RO i 2436 
6 D4 8 RD 41$: — CLRL n + 2437 
5E 0088 CE 9E 00284 42$:  MOVAB 136(SP), SP : 
OBFC 8F BA 00289 POPR #*M<R2,R3,R4,R5,R6,R7,R8,R9,R11> : 
05 00280 RSB ; 
3 Routine Size: 654 bytes, Routine Base: _BASSCODE + 0346 
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43 1 ROUTINE COMMON_F ( : 
1799 rhe 1 VALUE, ~ ! 
1798 441 1 NO_INT_DIGITS i 
1799 442 1 NO-FRAC_DIGITS, i 
1 443 1 FLAGS, ' 
1801 1 BAS_OUT_STR_LEN, i 
1 08 445 1 BAS_OUT-STR i 
180 446 1 BAS-SCACE_FAC, i 
1804 447 1 DATA_TYPE; ! 
1805 44 1 ARG_COUNT, : 
1 “] 44 1 CURRENCY : 
1 450 1 DIGIT_SEP, i 
1808 451 7 RADIX_PT : 
1 rh 1 »: JSB_F FORMAT = : 
1810 45 1 
1811 454 1 !4¢ 
1ai¢ 455 1 ' FUNCTIONAL DESCRIPTION: 
181 $3 1! 
Ha 45 1! This routine converts a number to explicit point unscaled 
1815 458 1! notation (F format) right justified. This routine supports PRINT 
1816 459 1! USING and NUM1$. The aumber of significant digits returned 
+ HF 4 ree ' } depends on the data type. 
1819 46 1 ! FORMAL PARAMETERS: 
1320 463 1! 
1821 464 1! VALUE .r2z.r value to convert 
Sse 465 1! NO_ Int DIGITS. rlu.v number of integer digits 
182 466 1! NO-FRAC_DIGITS.rlu.v number of fraction digits 
1824 467 1! POKGS. A ye = 1, no leading or trailing space 
1825 468 1! = 2, trailing sign 
13s6 469 1! = 3° insert commas 
1827 470 1! = logs gorrens symb 
1828 2471 1: = 4, fill to left of ae significant digit 
Ht 472 1! = 32, floatin dec inet point. isregard 
1830 47 : 3 NO_INT_DIGITS oF NO_FRAC_DIGITS. 
1831 474 1! = 64, a decimal point is réquired 
ose 475 1! BAS_OUT_STR_LEN.wlu.r Length of return string 
183 476 1! BAS_OUT"STRiwt.dx the return string 
1834 477 1! BAS-SCACE_FAC.rb.v Basic scale factor from 0 to -6 
1835 478 1! DATA_TYPE srl. data type of element 
1836 479 1! ARG_COUNT.ri.v number of erguaents passed 
1837 480 1! CURRENCY. rt.dx) curcency symbo 
1838 481 1! DIGIT_SEP.rt.dx] digit group separator 
+ FP ‘3 ' RADIX~PT.rt.dxJ ix point 
ees 484 1! IMPLICIT INPUTS: 
Ht 98 485 1! 
184 o8e 1! NONE 
1844 487 1! 
136? 488 1! IMPLICIT OUTPUTS: 
1 § 489 1! 
184 490 1! NONE 
1848 491 1! 
1849 49 1 ! COMPLETION CODES: 
1850 493 1! 
1851 494 1! success the value could be converted as required 
1852 2495 1! ' failure the value did not fit in the field described 
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1853 $38 1! 

18546 497 1°! SIDE EFFECTS: 

1855 $38 5 ! 

1 $ 499 1! NONE 

185 Oo 3! 

188 pin 

} 9 08 BEGIN 

1 ¢ rt MAP 

1 88 RADIX_PT : REF BLOCK C, BYTE) 

1 30 BAS _SCALE_FAC : VECTOR C1, BYTE, SIGNED), 

1865 & CURRENCY = REF BLOCK C, BYTE) 

1866 509 DIGIT SEP: REF BLOCK C, BYTEd, 

186 510 BAS _OOT_STR_LEN : REF VECTOR, 

1868 511 VALOE : "REF VECTOR, 

1869 21§ BAS_OUT_STR : REF VECTOR (2, LONG); 

B71 314 LOCAL 

H 344 515 TEMP_STRING : VECTOR CK_TMP_STR_LEN_H, BYTE], !: string for kernel conversion to 
187 21g ! return the result in 

1874 51 TEMP_PTR : REF VECTOR C, BYTE), ! pointer into TEMP_STR 

1875 518 NO_D . ' no. of actual, useful digits returned 
1876 519 KERNEL_BLOCK : BLOCK CK_KERNEL_BLK_SZ, BYTE) 

1877 520 INITIAL~ (REP (R_KERNEL_BLK_S2/4) OF (0)), 

1878 521 LARGEST_EXP, 

1879 5 ; $1G_DIG, 

1380 ; ? RESOLT; 

ieee 525 LITERAL 

188 5 6 K_ARG_COUNT = 12; 

1} er 

18 529 i Convert this number and then check it to see if it is effectively 

Hb +H ; ? ; zero after rounding to the number of places required. 

1889 532 |. KERNEL_BLOCK CSTRING_ADDR] = TEMP_STRING; 

1891 332 i Set the number of significant digits to the minimum of the number of total were 
1938 535 : digits requested (minus one if negative) and the number of accurate significant digits that 
189 5 $ ! the data type can return. This is done so that the kernel routine can do the 
1894 5 ! rounding. 

We BB 

1897 a79 seLECTONS -DATA_TYPE OF 

1899 348 CDSC$K_DTYPE_P): 

1901 ah —e 

1 45 VALUE : REF BLOCK (12,BYTE); 

1908 506 RESULT = CMPP (VALUE COSC$W_LENGTH), «VALUE COSCSA_POINTER], 
iohe 2 —- ZREF (15), PACKED_ZERO) 

1906 849 COTHERWI SE): 

190 550 RESULT = .VALUE (0); 

1908 551 TES; 

1909 552 
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IF .RESULT EQL 0 | 
o THEN 
i a zero value should be suppressed, then complete processing here, without 
i catt ing PLAIN. or FANCY_ formatting routines. All that needs to be output 
i ‘s a string of blanks. ~ 
BEGIN 
; trates AND V_SUPPRESS_ZERO) EQL 0) 
3 - (.NO_INT_DIGITS GEQ 1) 
4 PUT_OUT_ZERO 
LSE 
i Kludge for NUMI$. NUMI$ always passes 0 for no_ int digits 
i and no.frac_digits, but should print "0" not ''.0° for 
' NUM1$(0). So make sure 0 looks Like an integer to the 
formatting routine. 
4 BEGIN 
i IF (.NO_INT_DIGITS EQL 0 AND .NO_FRAC_DIGITS EQL 0) 
5 PUT_OUT_ZERO 
4 ELSE 
? PUT_OUT_ZERO_FRACT 
3 ELSE 
4 BEGIN 
: LOCAL BLANKS_STR_DESC : BLOCK (8, BYTE); 
4 JETIOL IEE DESC; 
4 LANKS_STR_DESC $th7 8 AMat = DSCSK_DIYPE_T; 
4 BLANKS” STR-DESC COSCSB_CLASS] = DSCS$K"CLASS—S; 
4 BLANKS-STR_DESC CDSCS$A_POINTER) = BL ARE 8; 
4 BLANKS" STR-DESC CDSCSW"LENGTH) = .NO_INT DIGITS + Par FRAC_DIGITS 
5 + TIF T.FLAGS AND V_ TRAILING stich) NEO 0 THEN 1 ELSE OF 
5 + (IF (.FLAGS AND V~COMMA) NEQ 0 
5 ag ashe RMel BCOCK CDEC EXPJ-1)/3 * .DIGIT_SEP CDSCS$W_LENGTH] 
+ ae A as AND V_PERIOD) NEQ 0 THEN .RADIX_PT COSCS$W_LENGTH) 
4 STRSCONCAT (BAS_OUT_STR CO], BLANKS_STR_DESC); 
4 RETURN 1; 
END; 
END 
BEGIN 
SELECTONE .DATA_TYPE OF 
COSCSK_DTYPE_F): 
316 DIG = K_NUM_F_SIG_DIG; 
COSCS$K_BTYPE “Di 
16_DIG = K_NUM_D_SIG_DIG; 
CDSCc t BTYPE “PIT 
4 BEGIN 


entre, 


F 
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1967 610 4 MAP 
128 ot) : VALUE : REF BLOCK (12,BYTEI; 
1309 ei$ 4 sis DIG = .VALUE COSC$W_LENGTH] + .VALUE CDSC$B_SCALEJ; 
197% 615 CoSC$k_bTYPE_GJ 
197 Ot 16_DIG = K_NUM_G_SIG_DIG 
1974 61 Cosc } BTYPE_HJ? 
1975 618 SIG_DIG = K_NUM_H_SIG_DIG; 
igre 619 COTHERWISE): 
4 y Tes: LIBSSTOP (OTSS$ _FATINTERR); 
1979 6 é KERNEL_BLOCK (SIG DIGITS] = 
1980 6 4 (IF (CTFLAGS AND Q_FLT_DEC_PT) EQL 0) THEN MIN (.NO_INT_DIGITS + «NO_FRAC_DIGITS - 
bs } : | BEGIN 
1988 : § IF ((. (VALUE (03)<15, 1> EQL 1) AND ((.FLAGS AND V_TRAILING_SIGN) EQL 0)) THEN 1 ELSE 0 
1985 628 END 
1oe8 : , - »S1G_DIG) ELSE .SIG_DIG); 
Hb = 4 o3) ° "bo not set the right round flag if this is a floating decimal point number. 
ba o38 2 KERNEL BLOCK CCONV_FLAGS] = (IF (.FLAGS AND V_FLT_DEC_PT) EQL 0 THEN V_RT_RND ELSE 0); 
1338 3635 ! The scale factor will be zero if this is not a double precision value. 
1994 £38 ; KERNEL_BLOCK CRT_RNDJ : -BAS_SCALE_FAC + .NO_FRAC_DIGITS; 
1995 638 SELECTONE .DATA_TYPE 0 
1996 639 T 
1997 2640 COSCSK_DTYPE_F): 
1998 2641 OTSSS$CVT DT RB (.VALUE, KERNEL_BLOCK CKERNEL_PTR)); 
1999 s0se CDscsK DT Yee 
2000 64 OTS$S$CV TD T_R8 (.VALUE, KERNEL_BLOCK CKERNEL_PTR)); 
2001 soe CDscSK DTY PEnP PJ: 
$008 645 4 BEGIN 
$08 646 4 '¢ 
004 647 4 i No kernel conversion routine so convert to text here and 
005 648 4 ' set some parameters. 
006 2649 & te 
007 2650 4 P 
008 651 4 VALUE : REF BLOCK (12, BYTE); 
009 626 4 LOCAL 
010 655 4 ZERO_CTR i tat, (0), 
a bee ? INT_BIGIT 
O18 656 4 CVTPS evi Ue sates LENGTH], .VALUE tty ~POINTERI, 
O14 697 4 ; ALUE COSC$Q_LENGTHS, TEMP_STRING 
BIg 659 4 i Calculate the number of integer digits, ical Leading 
ots ree ; ‘ zeroes. 
019 66¢ 4 iNT bisits = ,VALUE COSC$W_LENGTH] + .VALUE CDSCS$B_SCALE); 
$30 663 4 INCR I FROM 1 TO .INT_DIGITS DO 
021 664 4 IF . TEMP STRING C71] EQL 2C°O" THEN ZERO_CTR = .ZERO_CTR + 1 
Os¢ 665 4 ELSE gx1T} Oe 
0 666 4 KERNEL BLOCK DEC EXP] = .INT_DIGITS = .ZERO_CTR; 


BASSCVT_OuT 18-5 Sep-1984 59 AX-11 Bliss-32 V4.0 Page 58 
et 0-1 98¢ 99: O32 49 BASRTL.SRC BASCVTOUT. ° 2:1 . (19) 


8 : $6? : KERNEL BLOCK COFFSET] = 1 + .ZERO_CTR; 
8 $ 06? Z J "set the significant digits to the actual number of digits. 
0 : 671 4 $16 DIG = epee, Rock fDEC, EXP] + ABS(.VALUE COSC$B8_SCALEJ); 
0 oe 4 os > TEMP_STRING [0 
0 673 4 THEN 
031 674 BEGIN 
0 ¢ 675 KERNEL_BLOCK (SIGN) = <1; 
0 076 KERNEL _ i S1G_DIGITS) = a EL_BLOCK CSIG_DI a HY S$] - 
3 : oft CIF (FLAGS AND V_TRAILING SIGN) EQL 0 THEN 1 ELSE 0); 
086 679 4 LSE 
0 680 4 KERNEL_BLOCK CSIGN) = 
038 681 ND; 
039 68 COSC$K_BTYPE_G 
040 68 OTSS$CVT_ “6. t RB (VALUE, KERNEL_BLOCK CKERNEL_PTR)); 
2041 684 LDscsk DTY pend 
spee 685 OTS$$CVv VITH_T_R8 (VALUE, KERNEL_BLOCK CKERNEL_PTR)); 
204 686 COTHER RWISEJ: 
2044 2687 tIBSsTOP (OTSS_FATINTERR); 
Spee 688 TES; 
046 689 te 
2047 690 i Adjust for the scale factor. The scale factor will be zero if this is 
soee $3) ; _not a double precisio value. 
$330 $037 ie KERNEL_BLOCK CDEC_EXP] = .KERNEL_BLOCK CDEC_EXP] + .BAS_SCALE_FAC [0]; 
2058 695 ! Check to see if this number is effectively zero 
sos a 
2055 698 IF (((, net BLOCK CDEC_EXP] LSS 0) AND ae (. KERNEL BLOCK CDEC_EXP]) GEQ .NO_FRAC_DIGITS)) : 
$036 2699 4 OR KERREL_BLOCK CBEC EXP) EQL 0) AND (.NO FRAC _BIGITS Ea. 0))) =! 
057 700 4 OND (tn FLAGS” AND LT_BEC_PT) EQL 0) T 
058 701 4 ! AND (.NO_INT MDIGITS GTR OY 
059 144 THEN 
060 270 *, 
061 704 ’ zero value should be suppressed, then compare precess tng here, without 
see 705 i ay PLAIN. or FANCY_ formatting routines. ALl that needs to be output 
06 706 i is a string of blanks. ~ 
064 707 : 
065 2708 4 BEGIN 
066 709 5 IF ((.FLAGS AND V_SUPPRESS_ZERO) EQL 0) 
067 710 4 THEN 
068 711 5 BEGIN 
069 ne : IF .NO_INT_DIGITS GEQ 1 
070 71 
071 714 6 PUT_OUT_ZERO 
O78 715 ELSE 
07 ag '¢ 
074 71 i Kludge for NUM1$. NUMI$ always passes 0 tor no int. digits 
075 ig i and no_frac_digits, but should print ‘0’ 0 
B78 71 i NUM1$(0). So make sure 0 looks Like an Ra + to y & 
07 720 ! formatting routine. 
078 721 ie 
079 7 ; § BEGIN 
080 7 IF (.NO_INT_DIGITS EQL 0 AND .NO_FRAC_DIGITS EQL 0) 
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081 724 § THEN 
ore f 5 nS PUT_OUT_ZERO 
Oae f ? s . PUT_OUT_ZERO_FRACT 
08 729 8 END 
08 730 4 ELSE 
088 731 IN 
oe f ¢ LOCAL BLANKS _STR_DESC : BLOCK (8, BYTE]; 
091 734 INITIALIZE_DESC; 
O38 735 LANKS_STR_DESC pecee pr yeed = DSCSK_DTYPE_T; 
09 736 LANKS_STR_DESC [DSCSB_CLASS] = DSCSK_CLASS_S; 
094 737 BLANKS_STR_DESC (CDSCSA_POINTER] = BLANKS; 
095 rae BLANKS STR DESC COSCS$W_ LENGTH] = .NO_INT DIGITS + .NO_FRAC_DIGITS 
$088 739 6 + TIF T.FLAGS AND Q_TRAILING_SIGN) NEQ 0 THEN 1 ELSE OF 
097 sree 6 + (IF (.FLAGS AND V-COMMA) NEQ 0 
y38 el ° hag Gs KERNEL @COCK COEC_EXP]-1)/3 * .DIGIT_SEP CDSC$W_LENGTH] 
iSt 3748 g + is he AND V_PERIOD) NEQ 0 THEN .RADIX_PT CDSCSW_LENGTH] 
198 sre 5 STRSCONCAT (BAS_OUT_STR [0], BLANKS_STR_DESC); 
10 2746 5 RETURN 1; 
104 747 4 END; 
105 748 4 END 
2106 749 & 
Hoos ir Pn oe 
2109 2758 i PRINT USING specific error checking. Not performed for floating dec. pt. 
110 275 ! Error omy btn If this is a negative number with ‘**' or ‘'$$' then it must 
119 sie } also have trailing minus or a trailing <CD>. 
211 2756 3 
gité gre? 4 IF (CFLAGS AND V_FLT_DEC_PT) EQL 0) 
mo ORY . 
118 $e ; i this IF statement reads: if the number is less than zero 
119 sree ! and this IS an asterisk or a currency field, and the field 
120 2765 3 ! DOESN'T end with either a minus sign or a <¢p>, then it's 
133 $768 ; } a print-using format error. 
3 ele 766 4 ( 
: 1g 589 4 (.KERNEL_BLOCK CSIGN] LSS 0) AND 
: $156 reo 6 r 
: 2127 770 $ (.FLAGS AND V_STAR) NEQ 0 
3 \ 
: 2130 773 6 (.FLAGS AND V_CURRENCY) NEQ 0 
: 13 774 6 ) 
: 136 Ag 4 / AND 
> 2134 77 (.FLAGS AND V_TRAILING SIGN) EQL 0 AND 
3; 2135 778 (.FLAGS AND V-CR_DR) EGL 0 
: 136 779 ) 
3; 213 780 4 ) 
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SN 


THEN 
BASSS$STOP (BASSK_PRIUSIFOR); 
BEGIN 


Find the Last non-zero byte 
; Mahl = .KERNEL_BLOCK CSTRING_ADDR] + .KERNEL_BLOCK COFFSET] + 


IF (CFLAGS AND V.FLT.DEC_PT) EQL 0) 
MIN (.S1G_DIG, 


-KERNEL_BLOCK CDEC_EXP] + .NO_FRAC_DIGITS) 


ELSE 
-S1G_DIG 

EN 

- 1: 


ie GTRA (.KERNEL_SLOCK CSTRING_ADDR] + .KERNEL_BLOCK COFFSETI)) 


WHILE (.TEMP_PTR GEQA (. 
. KERNEL BLOCK COF 
.TEMP_PTR (0) EQL 
DO TEMP_PTR™= .TEMP_PTR 


K 
F J 
he 


BLOCK CSTRING_ADDR] + 
AND 


oO tala = .TEMP_PTR = (.KERNEL_BLOCK CSTRING_ADDR] + .KERNEL_BLOCK COFFSETJ) + 1; 


END; 


'¢ 
! Check to see if this is the rhogt ine decimal point situation. The only other 
valid flag bit is V_STRIP_SPACES. ALL other bits are ignored. 
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SELECTONE .DATA_TYPE OF 
SET 


COSCSK_DTYPE_F]: 


LARGEST_EXP = K_RANGE; 
COSC$K_DTYPE_D): 

LARGEST EXP = K_RANGE; 
COSC$K_DTYPE_P): 

EXP = K_P_RANGE; 

COSC$K_DTYPE_G): 

tA GEST_EXP = K_G_RANGE; 
CDOSC$K_DTYPE_H): 

LARGEST_EXP = K_A_RANGE; 
COTHERWISE): 


TES LIBSSTOP (OTS$_FATINTERR); 


IF (CFLAGS AND V_FLT.DEC_PT) NEQ 0) 
PLAIN_F_FORM_11 (.NO_DIGITS, .FLAGS, KERNEL_BLOCK, 


LL sss 


BASSCVT_OUT 
1-054 


rrorororfonopnonofonoferofnerenenorny 


PIPIPIPINININIPININGNIPS PINUNININPOMUNINININIPUNINONYD 


Rononononononanofonofonofrory 


POMOPONUPOPEPoNofononofofnory 


WWNIWINIPEPENOPoNo nono nn — = 


WO DOOnNOUE WN —O0@ 


> «4 
199 
198 
199 


ooo sessscs 
uw oO 


NOnRAN=OSR Ne 


POPUPOROPUPoPoTnonofnonononofnonenonr 


Sn — — 


PonononononononononoPononofonononononony 


MNES EES 


POPOPIPININPINIPININIPINININININININININONIPNU NON PO No nono Nunnononononofonoponoponony 


0 09 00 00 Gd C0 09 0d 09 00 09 00 09 CD Go: 
ONIN NNN NN NNO Om 
—OOONOULSWN “OO 0O*VO 


Rononononononononunonofonony 


Se 


2 09 Cd C0 0D CD 9 09 C9 C0 CD CD 0D 09 CD 0D 00 C0 CD C9 OD C9 CD CD CD 
OE PWS FLEE NE PUA EEE ENE SWEEPS ESPNS PWN IWwrnorn 


PEDDIE PPE EE 
VEWN 9 OONOAOUE WN — C ODNOUS WO 


Ro 


-_. 
16-Sep-1984 00:10:59 AX-11 Bliss-32 V4.0-74 
16-Sep-19 4 ert: BASRTL SRESASCV TOUT 882; 1 


BAS_OUT_STR [0], BAS_OUT_STR_LEN [0], .LARGEST_EXP) 


te 


ELSE 
BEGIN 
This is a more conventional F format. Try formatting the number as 
requested. 
ae Sane Serr checking to see if the number will fit into the field width 
vided. 
-) Are there Sein eneegee digits 
a.) Need 1 if negative number and no trailing sign 


b.) Need Length of reeves symbol if floating currency symbol 
c.) enough for the commas if required 
d.) enough for the digits based on the exponent 
e.) Need 1 for a zero if magn) rues of number is less than 1. 
2.) Are there enough fractional digits 


LOCAL 
INT_DIGITS_NEED; 
IF .ARG_COUNT NEQ K_ARG_COUNT THEN LIBSSTOP (OTSS$_FATINTERR); 
! consistency check 
INT_DIGITS_NEED = 
BEGIN 


IF ((.KERNEL_BLOCK CSIGN] LSS 0) AND (.FLAGS AND V_TRAILING_SIGN) EQL 0) 
a ! Negative numbers and trailing sign 


ELSE 
0 


END 

BEGIN 

IF (.KERNEL_BLOCK CDEC_EXP) GTR 0) 
_ Rene Oe CDEC_EXP) 


END 

BEGIN 

St .FLASS AND V_CURRENCY) NEQ 0) 
«CURRENCY COSC$W_LENGTH) 

ELSE 
0 

END 

+ 

BEGIN 

IF (((.FLAGS AND V_COMMA) NEQ 0) AND (.KERNEL_BLOCK CDEC_EXP] GTR 0)) ! number of commas needed 


! floating currency 


ref 
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bets . 13-8 08-1 oh 9 54:49 EBASRTL -SRCIBASCVTOUT .B 2:1 ° 3 
99000000" EF FE63 «CF 9E 00087 MOVAB MINUS, M_D ; 
00000000' EF FE : CF 9E C0 MOVAB DOT, b_ : 
900000 0’ EF FE CF 9E 000C MOVAB BLANK, ~B_D : 
00000" EF FESO cr 3 D2 MOVAB E F : 
6 AE 0108 F : 0008 8$ MOVW #2707 BLANKS STR_DESC+2 + 2585 
AE FEGS CF : £1 MOVAB BLANKS, BLANRS_STR_DESC+4 + 2587 
51 24 AE OD OE MOVL. NO_INT DIGITS + 2588 
50 51 1C AE C1 OO0EB ADDL3 NO-FRAT_DIGITS, R1, RO : 
05 20 AE 1 €1 OOF BBC #17 FLAGS, 9$ + 2589 
51 1 00 000F MOVL #1. RI : 
é 11 000F8 BRB 10$ F 
D4 OOFA 98: CLRL. 1 : 
50 1 CO OOOFC 10$:  ADDL2 Ri, RO : 
03 20 AE 02 £9 OOF F BBS #2. FLAGS, 11$ + 2590 
0244 31 00104 BRW 51§ ; 
51 44 AE gi c3 00107 11$:  SUBL3 #1, KERNEL_BLOCK+8, R1 : 2591 
0230 31 0010c BRW 50$ ; 
OA 28 Ag D1 OO10F 128: CMPL DATA_TYPE, #10 3: 2604 
05 12 00113 BNEG 13$ : 
59 06 00 0011 MOVL #6, SIG_DIG + 2605 
45 11 00118 BRB 18$ ; 
0B 28 «AE CO O11, 13$:  CMPL  DATA_TYPE, #11 + 2606 
05 if O11E BNEG 148 : 
59 10 DO 00120 MOVL #16, SIG_DIG + 2607 
3A 11 00123 BRB 18$ : 
15 28 «AE D1 00125 148 CMPL  DATA_TYPE, #21 + 2608 
11 12 001 BNEG 15$ : 
50 2c «BE 3C 00128 MOVZWL @VALUE, RO + 2613 
51 2c AE 08 C1 OO1¢F ADDL3. #8, VALUE, R1 : 
59 61 98 00134 CVTB (Ri), SIG DIG F 
59 30 CO 00137 ADDL2 RO, $16_ F 
23 11 0013A BRB 1 + 2602 
1B 28 AE D1 0013C 15$:  CMPL = DATA_TYPE, #27 + 2615 
05 12 00140 BNE : 
59 OF DO OO142 MOVL #15, SIG_DIG : 2616 
18 11 0014 BRB 1 : 
1C 28 AE 0100147 168:  CMPL  DATA_TYPE, #28 + 2617 
05 ff 0148 BNEQ 17$ : 
59 2i DO 0014D MOVL #33, SIG_DIG + 2618 
D 11 00150 BRB 1 : 
000000006 a DD 158 17$:  PUSHL #OTS$_FATINTERR + 2620 
000000006 00 1 FB 0015 CALLS #1, LYBSSTOP : 
SA D4 OO15F 18%: CLRL R > 2623 
24 20 AE Qs EO 00161 BBS #5, FLAGS, 21$ : 
A D6 00166 INCL R10 : 
51 24 AE DO 00168 MOVL_ NO_INT_DIGITS, R1 : 
50 51 1c AE C1 0016C ADDL3 NO-FRAC_DIGITS, R1. RO ; 
2¢ BE B5 00171 TSTW  aVALUE + 2626 
A 18 0174 BGEQ 19 : 
05 20 AE o1 EO 00176 BBS #1, FLAGS, 19$ : 
51 1 DO 00178 MOVL #1.R : 
02 11 0017 BRB 20$ ; 
1 D4 00180 19$ CLRL. RI ; 
50 1 C2 182 20$ SUBL2 1, RO : 3624 
9 9 : 1 CMPL RO $1G_DIG > 2609 
9 5 00188 BLEG 22% : 
50 9 pO 0018A 218 MOVL  $IG_DIG, RO : 
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:49 YBASRTL  SRe BASCVTOUT.B32;1 . a 
RO pga ; 623 
R 3 : 2633 
Rig. 432, RO : 
24$ 3 
RO : 
RO, KERNEL_BLOCK+24 ; 
NO_FRAC DIGITS. BAS_SCALE_FAC, KERNEL_BLOCK ; 2637 
ATA_TYPE, #1 3 2640 
DATATYPE, #1 3 2642 
KERNEL _BLOCK+36, R1 + 2643 
VALUE, ~R : 
Ts$SCvT_p_T_R8 ; 
ATALTYPE, #21 ; 2644 
ZERO_CTR + 2645 
#4, VALUE, RS + 2657 
@VALUE, @(R5)+, @VALUE, TEMP_STRING - : 
@VALUE, RO + 2662 
#8, VALUE, R2 ; 
(R2), INT DIGITS ; 
RO, INT_DIGITS : 
ms + 2663 
TEMP_STRINGC1], #48 + 2664 
ERO_CTR F 
INT BIGITS, 1, 278 ; 
ZERO_CTR, INT_DIGITS, KERNEL_BLOCK+8 : 2666 
1(R4), KERNEL “BLOCK+4 + 2667 
#8, VALUE, R1 : 2671 
(Ri), RO ; 
30$ 3 
RO, RO F 
KERNEL_BLOCK+8, RO, SIG_DIG ; 
TEMP_STRING, rT aS ; 2672 
#1, KERNEL_BLOCK+12 > 2675 
#1. FLAGS, ~31$ : 2677 
#1. RO ; 
32§ : 
n0 KERNEL_BLOCK+20 : 
jas KERNEL_BLOCK#12 : et 
3a§ F > 2638 
DATATYPE, #27 : 2682 
KERNEL BLOCK +36, R1 > 2683 
VALUE, ~R ; 
TS$SCVT_G_T_R8 
ATALTYPE, #28 > 2684. 
KERNEL_BLOCK+36, R1 > 2685 
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50 C AE DO 9 MOVL VALUE, RO : 
000000866 6 16 Js8 TE ySe vi HT RB : 
000000006 BF DD 00265 37$: PUSHL M#OTSS$_FATINTERR + 2687 
000000006 90 BE. $ CALLS #1, LIBSSTOP : 
0 18 AE 9 38$:  CVTBL BAS_SCALE_FAC, RO > 2693 
44 AE 50 ¢ 7 ADDL2 RO, KERNEL BLOCK +8 ; 
56 44 AE OD 7A MOVL KERNEL BLOCK* , R6 + 2698 
gE 1 0 7 BGEQ 40S : 
50 D 8 MOVL 6, RO : 
18 00 BGEG }6s-«-39§ : 
50 CF 0 MNEGL RO, RO : 
1c AE D 39$:  CMPL RO. NO_FRAC_DIGITS : 
O¢ 18 028C BGEQ 4 © 42 : 
: D5 00 3 40$:  TSTL R6 + 2699 
03 12 0029 BNEG 41$ : 
10 «AE OD 00 32 TSTL NO_FRAC_DIGITS ; 
13 00295 41$:  BEQL 428 : 
008 +31 00 97 BRW 55$ : 
46 SA £9 0029A 42$: BLBC R10, 45$ + 2700 
20. «AE 0c £0 90290 BBS #12. FLAGS, 46$ + 2709 
40 AE 04 002A2 CLRL KERNEL_BLOCK+4 + 2713 
30 AE 01 D0 002A5 MOVL #1, NO-DIGITS ; 
24 AE DS 0029 TSTL NO INTDIGITS + 2712 
14 002AC BGTR 433 ; 
0 12 002A BNEQ 44$ t 2723) 
1C AE 05 00 : Ist NO_FRAC_DIGITS : 
44 AE 01 7D 00285 43$: MOVQ #1, KERNEL_BLOCK+ + 2724 
50 AE 1 00 00289 MOVL #1, KERNEL ~BLOCK+20 : 
4C OBE 0 90 002BD MOVE #48, @KERNEL BLOCK+16 : 
24 «AE 1c AE ci 002¢1 ADDL3 NO_FRAC DIGITS, NO_INT_DIGITS, R1 ; 
6E me oe ¢ Bo ecr MOVCS #07 (SPT, #48, R1, @KERNEL_BLOCK+16 : 
13°«11 09 CE BRB 45$ : 272 
44 AE 7C 00200 44$:  CLRQ KERNEL _BLOCK+8 : 272 
50 AE 1 00 00203 MOVL #1, KERNEL BLOCK+20 : 
4C OBE 0 90 00207 MOVE #48, @KERNEL BLOCK+16 ; 
6E 00 2C 002dB movcS # P), #48, NO_FRAC_DIGITS, - : 
4C BE 0261 @KERNEL_BLOCK+16 : 
00B3 31 002E3 45$ BRW 57$ : al 
00000000' cf D3 : FS 46$ sth ED ; 2732 
' EF FCBG CF 9E O0E MOVAB MINUS, M_D : 
inddintdie Er a5 CF 3f § Fs MOV » 6.D7 : 
te a a 2 i ari 2 
6 AE 010 BE 80 0 lg 47$: MOV 55707 BLANKS_STR_DESC+2 : 2735. 
8 AE FC96 CCF F 0 1 MOVAB BLANKS, BLANRS_STR_DESC+4 : 2737 
51 24 AE OD 1 MOVL. NO_INT DIGITS, R : 2738 
51 a. we ti 0 ADDL3 NOTFRAC_DIGITS, R1, RO : 
20 AE 1 €1 BBC #17 FLAGS, 48$ + 2739 
51 1 00 6 C MOVL #1. RI : 
; 11 F BRB 49$ ; 
50 1 PG Boeey coe; | Abot2 oT. RO : 
20 AE 02 €1 00 BBC #2. FLAGS, 51$ + 2740 
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-1(R6), RI 
R1 
aDIGIT_SEP, R2 
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1, RO, BLANKS_STR_DESC 
ANKS §TR_DESC 


, 5 

K RNEL_BLOCK+12 
#4, FLAGS, 56$ 
#3, FLAGS. 57$ 
#i, FLAGS. 57$ 
wid, FLAGS, 57$ 
WBASSK_PRIUSIFOR, -(SP) 
#1, BASSSST 
KERNE BLOCK+4, KERNEL_BLOCK+16, R1 
NO_FRAC_DIGITS, KERNEL_BLOCK+8, R2 

1G; RO 


RO 
R9 
RO)CRIJ, TEMP_PTR 
P_PTR, R1 

P_PTR, R1 


NO_DIGITS 
fYPEy #1 
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#38, LARGEST_EXP 
DATA_TYPE, #21 
DATA_TYPE, #27 
#308, LARGEST_EXP 
DATA_TYPE, #28 
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BASRTL.SRC eSaascvtour. yf 231 


$73 

a 32, LARGEST_EXP 

oy oS rbe boston 
STOP 


XP, R 
BAS_OUT- STR -tEN. R4 
BAS” QUT. STR? 


FLAGS 
NO_DIGITS 
PLAIN_F Form 1 


ARG COUNT, #12 

#OTS$_FATINTERR 

#1, LYBSSTOP 

KERNELS _BLOCK+12 
#1, FLAGS, 71$ 

#1. RO 

72$ 


RO 

KERNEL BLOCK+8, R1 
R 

R1 
73$ 
RI 
74§ 


in 

#3, FLAGS, 75$ 
@CURRENCY, RO 
76$ 


R2 


R9 
R9, RO, 


R2 
We. FLAGS, 77$ 
Rr trie RO 
a3 
aDIGIT_SEP, R3 
° RO 
73§ 
RO 
R2, INT_DIGITS_NEED 
INT _DIGITS_N S_NEEB, NO_INT_DIGITS 
R1 
80$ 
R1, RO 
79§ 
RO 


RO, 
no NO_FRAC_DIGITS 
KERNEL_BLOCK, R4 
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18-Sep-1984 90:10:33 ree Oi legac V4.0-74 Page 74 i. 
14-Sep-1984 11:54:49 BASRTL.SRCJBASCVTOUT.B32;1 (20) 

; 917 1 ROUTINE COMMON_G ( ' 

: 918 1 VALUE, } 

H 919 1 FLAGS, ! 

: 920 1 BAS_OUT_STR_LEN, ! 

: 921 1 BAS_OUT_STR ' 

; 9 : 1 BAS-SCACE_FAC, i 

3 9 1 UM-DIGITS, ! 

: 924 1 DATA_TYPE : 

: 925 1 ): JSB_G_FORMAT = ! 

; 926 1 

3 2927 1 44 

; § $3 4 : | FUNCTIONAL DESCRIPTION: 

; 2 2930 1! This routine converts a number to either E or F format 

s¢ 2931 1! depending on its value. This routine supports PRINT, PRINT USING, NUMS, 

3 2 $o%8 1! and STR$. If a number can be represented in six digits without any loss 

3; 2291 933 1! of accuracy then it is returned in F format. Otherwise, it is returned 

, 2 ¢ 2934 1! in E format. If the apt jonet argument NUM_DIGITS is included, then the 

3 § 2935 1! number is returned in F format if it can be represented no less accur- 

: 2936 1! ately in NUM_DIGITS. 

3; 2295 2937 1! 

3: 2296 2938 1 ! FORMAL PARAMETERS: 

3; 2297 2939 1! 

; 2298 2940 1! VALUE .rz.r the value to convert : 

: 2299 2941 1! FLAGS.rlu.v = 1, strip panetne and trailing space 

3 2300 song 1! BAS_OUT_STR_LEN.ww.r length of the string returned. Useful if return 

3; 2501 2943 1! string is static. 

3; 2302 2944 1! BAS_OUT_STR.wt.dx return string 

; 2303 2945 1! BAS-SCACE_FAC.rb.v the scale factor for double precision values. 

: $ 04 2946 1! NUM-DIGITS.rl.v number of digits in F format. 

3 § 05 Sper ' DATA_TYPE.rl.v data type of element to format 

3 § 2949 1°! IMPLICIT INPUTS: 

3 2950 1! 

| 2951 1! NONE 

3 @ 3444 1! 

3 2311 295 1 ! IMPLICIT OUTPUTS: 

; § 2 2954 1! 

3 3 2955 1! NONE 

3 2314 2956 1! 

3; 2315 2957 1 ! COMPLETION CODES: 

3 6 soee a 

3 7 959 1! success the value could be converted as required 

3 4908 : failure the value did not fit in the field described 

3 0 $306 1 ! SIDE EFFECTS: 

; 1 2963 1! 

: ; 964 1! NONE 

; 965 1! 

3 4 206 1 !-- 

; 5 967 1 

3 6 968 BEGIN 

: 7 36? 

3 8 970 MAP 

3 g 971 BAS_SCALE_FAC : VECTOR C1, BYTE, SIGNED], 

3 2330 397¢ BAS-OUT_STR_LEN : REF VECTOR, 

3 2331 297 VALOE :"REF-VECTOR, 


! by the kernel routine 


l 52 
BASSCVT_OUT 16-Sep-1984 00:10:59 AX-11 Bliss-32 V4.0-74 Page 75 
1-054 12-8 8-138e 90:19:23 BASRTL SRO IBASCV TOUT. 68251 . (20) 
; ¢ are BAS_OUT_STR : REF VECTOR (2, LONG]; 
; 4 3r8 LOCAL 
; 5 97 ! maximum number of digits for F format 
5 6 978 TEMP_STRING : VECTOR CK_TMP_STR_LEN_H, BYTE], ! temp string to pass to the kernel 
3 7 979 ! conversion routine 
3 8 980 TEMP_PTR : REF VECTOR C, BYTE), ‘ pereter into string returned by 
s 39 981 ! kernel conversion routine 
3 re age NO_DIGITS, ' actual length of string returned 
: ri} 984 STATUS, ! wre status 
: z 985 KERNEL_BLOCK : BLOCK CK_KERNEL_BLK_SZ, BYTE 
3 44 986 INITIAL” (REP (R_KERNEL_BLK_S2/4) OF (0)), 
3 2345 987 LARGEST_EXP, 
3: 2346 988 RESULT; 
3 2347 2989 
3; 2348 990 § '+ 
3 2349 991 ' Special case 0 
3; 2350 992 2 !- 
; 2351 99 § 
3; 2352 2994 SELECTONE .DATA_TYPE OF 
3; 2353 2995 
3 2354 2996 COSC$K_DTYPE_P): 
3; 2355 2997 BEGIN 
3; 2356 2998 3 AP 
3 2357 999 3 VALUE : REF BLOCK (12,BYTE]; 
3 2358 000 3 RESULT = CMPP (VALUE coscéw LENGTH], .VALUE CDSCS$A_POINTER], 
3 2359 3001 3 ZREF (15), PACKED_ZERO); 
3; 2360 3002 2 END; 
; 2361 3003 2 COTHERWISE): 
; $306 5004 § RESULT = .VALUE (0); 
: 236 3005 TES; 
3 2364 3006 2 
3; 2365 3007 IF .RESULT EQL 0 
3; 2366 3008 THEN 
3 2367 3009 BEGIN 
3; 2368 3010 
3 2369 3011 IND 
3; 2370 $018 3 BLANK = UPLIT (BYTE (° ')), 
3; 2371 301 ZERO = UPLIT (BYTE ('0')); 
3; 2372 3014 
5 $ai7 3015 LOCAL 
3: 2374 016 ZERO_STR_DESC : BLOCK (8, BYTE); 
3 32 017 
: 2376 018 '¢ , 
3 $5 3h : Initialize the BLANK desc in case this is the very first PRINT. 
: 2379 054 B_D = BLANK; 
: 380 Oss ZERO_STR_DESC pscee ch Ass = DSCSK_CLASS_S; 
> 2382 0 ZERO-STR-DESC CDSC$B~DTYPE) = DSCSKDTYPE—T; 
> 2382 034 ZERO-STR-DESC CDSCS$WTLENGTH] = 1; 
> 2383 025 ZERO-STR-DESC [DSCSA-POINTER) = ZERO; 
3: 2384 026 STATOS ="STRSCONCAT TBAS_OUT_STR [0) 
: 2385 027 (IF .FLAGS AND V_STRIP_SPACES THEN NULL_DESC ELSE BLANK_DESC), ZERO_STR_DESC, 
3; 2386 028 (IF .FLAGS AND V_STRIP_SPACES THEN NULL_DESC ELSE BLANK DESC)5; 
3 2387 029 BAS _OUT_STR_LEN CO] = (IF [FLAGS AND V_STRIP_SPACES THEN 1 ELSE 3); 
; 2588 030 RETORN TSTATUS; 


2 
16-Sep-1984 00:10:59 YAX-11 Bliss-32 v4.0-7 Page 76 
VenSep-1984 1154349 EBASRTL SREIASCWTOUT.642;1 #928 


; 9 0 END; 

3; 2390 0 

3 3) 8 ? * RANGE = .NUM_DIGITS; 

: 38 035 i Load up the parameter block, stick the value in RO and call the kernel 

3 4 8 $ _conversion routine. 

3 2396 §34 KERNEL_BLOCK CSTRING_ADDR] = TEMP_STRING; 

3; 2397 039 KERNEL_BLOCK (SIG_DIGITS) = .RANGE; 

3 $05 3040 KERNEL BLOCK CCON?_FLAGSJ = KERNEL_BLOCK CRT_RNDJ = 0; 

: 23 39461 SELECTONE .DATA_TYPE OF 

; 2401 $048 COSCSK_DTYPE_FJ: 

3 240 044 OTSSSCVT_D_T_RB (.VALUE, KERNEL_BLOCK CKERNEL_PTR)); 

3; 240 3045 CDscsk DTYPE-DJ:~ 

3 2404 3046 2 OTSSS$CVT_D_T_R8& (.VALUE, KERNEL_BLOCK CKERNEL_PTR)); 

3: 2405 3047 CDsceK _DTYPE-PJ:~ 

3; 2406 3048 BEG! 

3 2407 3049 4 

3; 2408 3050 ; ' No kernel conversion routine so convert to text here and 
3; 2409 3051 ' set some parameters. 

3; 2410 3052 ; t= 

3 2411 soee AP 

3 2412 3054 3 VALUE : REF BLOCK Cic, BYTE]; 

3 2413 3055 3 AL 

3 2414 3056 3 FERO CTR : INITIAL (0), 

3 2415 3057 3 INT_BIGITS; 

3 2416 3058 3 

3 2417 3059 3 CVTPS ss COSCS$W_ LENGTH], .VALUE CDSCSA_POINTER], 

; 3618 3060 3 ALUE CDSCS$Q_LENGTHI, TEMP_STRING): 

3; 2420 3062 3 i "iteutens the number of integer digits, excluding leading 
3 2421 3063 3 i zeroes. 

3 2422 3064 : in 

3 2423 3065 iNT pestle LUE COSC$W te + .VALUE COSCS$B_SCALE]; 
3 2424 3066 3 INCR I OM 1 “To - INT_DIG GITS 

3 2425 3067 3 tf Fron STRING C71] EQL gc O° THEN ZERO_CTR = .ZERO_CTR + 1 
3 $759 Soc8 3 ELSE EXITLOOP; 

3: 2427 069 ; KERNEL_BLOCK CDEC_EXP] = .INT_DIGITS = .ZERO_CTR; 

: 2428 3070 KERNEL-BLOCK COFFSET] = 1 + .ZERO_CTR; 

; ah $053 ; IF  TEAP_ STRING CO) EQL tc?- 

3 2430 Bre N 

; 3431 Hid KERNEL_BLOCK CSIGN] = -1 

3 RE 075 KERNEL_BLOCK CSIGN] = 1; 

: size 076 '¢ 

3: 2435 077 i Range should be set to the actual number of digits in the 
3: 2436 3078 i number, since there is no Limit on the print size of decimal. 
3 2437 079 i Note that this means only f format will be used by PRINT, STRS 
: <3 bay ‘ and NUMS. 

: Ph oes cube = .KERNEL_BLOCK CDEC_EXP] = .VALUE CDSC$B_SCALE]; 

: 244 O84 CDSC$K_DTYPE_G 

: 244 085 OTSS$CvT~ “6. i RB (.VALUE, KERNEL_BLOCK CKERNEL_PTRI); 

3 2444 bag CDscsk DTYPE-H 

3 2445 0 OTSSSCVT7H_T_RB (VALUE, KERNEL_BLOCK CKERNEL_PTR]); 


ry 90:19:33 AX-11 tt V4.0-74 Page 77 

4 11:54:49 BASRTL.SRC JBASCVTOUT.B32;1 | (20) 

COTHER 
Ll 

* TES; 

! Adjust for the scale factor, if any 

: KERNEL_BLOCK CDEC_EXP] = .KERNEL_BLOCK CDEC_EXP] + .BAS_SCALE_FAC (0); 

Find the last non-zero digit in order to know the actual length of the number 

TEMP_PTR = .KERNEL_BLOCK CSTRING_ADDR] + .KERNEL_BLOCK COFFSET] + .RANGE = 1; 


WHILE .TEMP_PTR [0] EQL %C'O' DO 
TEMP_PTR = .TEMP_PTR = 1; 


NO_DIGITS = .TEMP_PTR = (.KERNEL_BLOCK CSTRING_ADDR] + .KERNEL_BLOCK COFFSETIJ) + 1; 


Now determine whether to do E format or F format. Note 0 has been special 

cased. Some rough decisions can be made based on the exponent of the value 
returned by the kernel conversion routine. If the exponent is > 6 or < -6 

the number should be output in E format. If the exponent is < 6 and > 0, 

then the number is output as F format. For numbers where the exponent is 

> -6 and < 0, the actual value comes into play. If the number can be represented 
no less accurately in 6 digits, then it is output in F format. Otherwise, 


SEJ: 
S$ 


WISE) 
BSSTOP (OTSS_FATINTERR); 


2470 the number is output in E format with 6 significant Stgtts, 

2471 If NUM_DIGITS is specified, then substitute its value for 6 in the above 
2472 discussion. 

2473 - 

2475 somes? -KERNEL_BLOCK CDEC_EXP] OF 

2477 

2478 {CO TO .RANGE) : 

2479 1+ 

2480 ! Unconditionally F format 

se : 


BEGIN 
ceyre roe -DATA_TYPE OF 


COSCSK_DTYPE_FJ: 
LARGEST_EXP = K_RANGE; 
CDSC$K_DTYPE_D): 
T_EXP = K_RANGE; 
COSCSK_DTYPE_P): 
EXP = K_P_RANGE; 


LARGEST EXP = K_G_RANGE; 


LARGEST_EXP = K_H_RANGE; 
COTHERWISE: 
LIBSSTOP (OTSS$_FATINTERR); 


TES; 
STATUS = PLAIN_F_FORM_11 (.NO_DIGITS, FLAGS. KERNEL_BLOCK, 
: BAS_OUT_STR™C0J, BAS_OUT-STR_LEN (OJ, .LARGEST_EXP); 


nm 

r~ 

~ 

7 
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= 
“ 
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ou 
wie 
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BREESE EE EAN PIPINNPNINID 2 2 OO OO SS" OOOO 
FUN OO OCONOAUE WN SO ODNAUES WN (OO OONOULS WIN" O OO 
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18-808-1 3b 90:19:23 BASRTL. RCIBASCVTOUT.B 2:1 
‘4 
! May be either E or F format. Have to check and see if any accuracy will 


' be lost by displaying 6 digits in F format. If accuracy will be lost, 
: then use E format. 


sich - . KERNEL BLOCK CDEC_EXPJ) LEQ .RANGE) 


14 


F format 
, BEGIN 
SELECTONE -DATA_TYPE OF 
COSCSK_DTYPE_F): 
LARGEST EXP = K_RANGE; 
COSCSK_DTYPE_DJ: 
ARGEST_EXP = K_RANGE; 
COSCSK_DTYPE_P): 
LARGEST _EXP = K_P_RANGE; 
CDSCSK_DTYPE_G): 
LARGEST_EXP = K_G_RANGE; 
COSCS$K_DTYPE_H): 
LARGEST_EXP = K_H_RANGE; 
COTHERWISE)? 
ae LIBSSTOP (OTS$_FATINTERR); 
STATUS = PLAIN_F_FORM.11 (.NO_DIGITS, .FLAGS, KERNEL_BLOCK, BAS_OUT_STR [0], 
ae BAS_OUT_STR_CEN (OJ, .LARGEST_EXP) 
ELSE 
te 
E format 
' STATUS = PLAIN_E_FORM_11 (.NO_DIGITS, .FLAGS, KERNEL_BLOCK, BAS_OUT_STR [0], 
BAS_OUT_STR_CEN (OJ, .DATA_TYPE J; 
COTHERWISE) : 


‘+ 
Unconditionally E format 


STATUS = PLAIN_E_FORM.11 (. ? 


(.NO_DIGIT 
BAS_OUT_STR (03, BAS_OUT_S 


IGITS, .FLAGS, KERNEL BLOCK, 
R_LEN 


*cO], .DATA_TYPES 


ies; 


RETURN .STATUS; 
END; 'End of COMMON_G 


000000004 AAY: 
2 “AAZ: ASCII \ \ 
A 


a 


ee: 
i 


1c AE 


54 54 


000000 


000000 
0 
| 
| 
| 


00° 
14 
18 


006 
1 


08 


50 


-Prvir> Wm 
WwrPpmm wom 


OFFC 8 BF 
90 56 
: 
2 
ef 
0 
g. 
15 
gf 
4 
9 
4 
03 
6A 
65 
B8 AF 
010E0001 8F 
AC AF 
04 AE 
00000000' f 
00000000" f 
18 AE 
OC AE 
00000000° f 
00000000° f 
18 AE 
4 
0 
04 AE 
01 
3 
af 
57 
40 A 
5 
1c AE 
34 AE 
5B 
92 
B 
OF 
40 AE 
5A 


BB 00000 COMMON. 6: 


9E 00004 
4 0008 
DO 00008 
bp 44 3 
D 0001 
) Bate 
3 0018 
0018 
D1 00021 
1s 00024 
37 00026 
dC 4043 
EF 44 
C3 00035 
11 00039 
DO 00038 1$: 
12 OOO3E 2$: 
9E 00040 
DO 00048 
9E 00050 
§? 00055 
: 00059 
11 00060 
9E 44'4¢3 3$: 
DD 00069 4$: 
9F 00068 
§? 3 
— 0007 
11 00079 
9E 00078 5$: 
DD 00082 6$: 
DD 00084 
FB 00087 
dO Bp565 
E9 0009 
DO 00096 
dO 00098 7$ 
00 $09 8$: 
1 OOOA 
dO BaOA 9$: 
4 00A8 
DO OOOAD 
D4 00081 
D4 00084 
D1 00087 
13 OOOBA 
Di O00BC 
12 Bpet 
43 0C1 10$: 
DO 000C5 


USHR 


AX-11 a V4.0-74 
BASRTL.SRCJBASCVTOUT.B52;1 


F208 AS ROT BORO RIO ANT 


R2, BAS_OUT_STR_LEN 
Ri FLAGS 


#36, P.AAY, KERNEL_BLOCK 
DATA_TYPE, #21 


(VALUE), @4(VALUE), 


#2, #2, R4, RO 
R4, #1, RESULT 


(VALUE) , RESULT 
BLANK, B_D 
#1769472T, ZERO_STR_DESC 
ZERO, ZERO_STR_BESC#4 
FLAGS, 

NULL_DESC, RO 
BLANK_DESC, RO 
ZERO_STR_DESC 

FLAGS, 5$ 

NULL_DESC, RO 
BLANK_DESC, RO 

RO 


#15, PACKED_ZERO 


ae 
=< eM PwWwo 


BAS_OUT_STR 
#4, STRSCONCAT 
» STATUS 


FLAGS, 7 
#1, RO 
8$ 


#3, RO 
RO, @BAS_OUT_STR_LEN 


NUM_DIGITS, RANGE 

TEMP STRING, KERNEL_BLOCK+16 
RANGE, KERNEL _BLOCK?20 
KERNEL_BLOCK 

KERNEL BLOCK +24 

DATA_TYPE, #1 
10$ 

DATATYPE, #11 


KERNEL BL OCK#36, R1 
VALUE, ~R 


Page 79 


(20) 


2917 


ee 
— wD 
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14-Sep-1984 BASRTL.SRCIBASCVTOUT. 8 2:1 
000000006 90 16 oocs J$8 1S SSSCVT_b_T_RB : 
4 1 OC BRB 9$ : 
15 38 D] 900 11$: CMPL -DATA_TYPE, #21 + 3047 
49 12 0000 BNEQ Vs : 
54 04 0000 CLRL. ZERO : 3048 
40 AE 6A 04 pA 6A 08 0000 CVTPS (VA ALOE te Os (VAL E), (VALUE), TEMP_STRING 3; 3060 
1 6A QODE MOVZWL (VALUE) 1G1T§ + 3065 
20 08 AA BOE] CVTBL 8(VALUE as. : 
1 50 CO O00ES ADDL2 RO, IN UES Hore ; 
50 04 000E8 CLRL + 3066 
09 11 OONEA BRB 3$ : 
30 40 AESO 91 det 12$:  CMPB  =TEMP_STRINGCIJ, #48 + 3067 
6 12 O00F1 BNEQ 148 ~ : 
4 D OFS INCL  ZERO_C ; 
F3 50 1 £3 OOOFS 13$: cost ce INT sict 12$ 3 
24 «AE 51 4 ¢€3 000F9 148: SUBL ZERO ary Si ut’ DIGITS, KERNEL _BLOCK+8 : 3069 
20 AE 01 Ad SE OO0F MOVAB 1(R4J, KERNEL~ BLOCK + 3070 
20 40 AE 91 0016 CMPB TEMP. STRING, 94 : 3071 
06 12 001 NEQ 15$ : 
28 AE 01 CE 90109 MNEGL #1, KERNEL_BLOCK+12 > 3073 
04 11 0010p BRB 168 : 
28 «AE 01 D 90108 15$: MOVL KERNEL_BLOCK+12 3 3075 
59 08 AA 9 O13 16$: CVTB BACHE) RAN > 3082. 
59 24 «AE 9 ¢3 0011 SUBL3 RANGE, KERNEL _BLOCK+8, RANGE : 
§ 11 0011C BRB 21 + 3041 
18 5B D1 OO11E 17S: CMPL  DATA_TYPE, #27 + 3084 
OF 12 00121 BNEQ ; 
51 40 AE 9E 00125 MOVAB KERNEL _BLOCK+36, R1 + 3085 
50 5A DO 00127 MOVL ; 
| 000000006 00 16 O01¢A JSB OTss$CvT_G_T_RB F 
| e 11 00130 BRB ; 
C B 01 00152 18$: CMPL = DATA_TYPE, #28 : 3086 
OF 12 001 BNEQ : 
51 40 AE 9E 00137 MOVAB KERNEL_BLOCK+36, R1 : 3087 
50 5A DO 00138 MOVL VALUE, ~R ; 
000000006 00 16 0013€ JSB OTSS$CVT_H_T_R8 : 
0D 11 00144 19$: BRB 21$ : 
000000006 8F DD 00146 20$:  PUSHL ##OTSS$_FATINTERR : 3089 
000000006 00 01 FB O014¢ CALLS #1, LIBSSTOP ; 
0 of 98 00153 21$ CVTBL BAS_SCALE_FAC, RO + 3094 
34 AE 50 ¢O 00156 ADDL2 RO, KERNEL BLOCK+8 ; 
51 tc a 20 AE C1 0015A ADDL KERNEL BLOTKS4, KERNEL BLOCK+16, R1 : 3098 
50 FF A941 9E 00160 MOVAB <-1(RANGE)CR1) P_PTR 3 
30 0 91 0165 228: CMPB ss (TEMP_PTR), pig’ : 3100 
4 if 1 BNEQ 23 : 
0 D? 0016A DECL 58 PTR : 3101 
F7 11 0016C BRB ; 
50 51 O16E 23$ SUBL2 1, RO > 3103. 
&6 01 AO F 01 MOVAB 1(RO), NO_DI GITs : 
52 24 AE 00 00175 MOVL KERNEL _ BLOCK+8, R2 ; 3117 
2A 19 0179 BLSS 258 : 3120 
59 : D1 00178 CMPL Re RANGE ; 
é 14 0017 BGTR 25$ ; 
OA : D1 O18 CMPL ATA_TYPE, #10 > 3127 
43 13 001 BEQL 6 ; 
08 B p4 0185 CMPL DATA. TYPE, #11 : 3129 
| —E 13 001 BEQL 26% : 
i 


f 
| 


eaten 


; Routine Size: 


3; 2551 


1 

1 

15 B 18A 
2H 
Pea hie 
48 1 194 

000000006 of DD 00196 
000000006 00 1 ‘9 in 
43 1 1A 

28 FF AQ + ine 
$0 8 
4F 19 QO1AF 

ig Bie 

oe wae. 
42 14 0018C 
“BH ER 
08 88 D1 001C3 
05 12 001C6 
55 26 «D0 pp tce 
18 11 001CB 
: HL Sig 
8 RB 
nome Ee FB 
1¢ 5B 01 OO1DE 
BS 12 OO1E1 

55 1344 8F 3C Beles 
52 1¢ = AE 4 O1E8 
PL 08 AE 00 OOTEC 
53 OC AE 00 001FO 
OF 
oor af 

5 1C AE 0200 
3 58 Hi 0504 
54 08 AE 4 3 07 
53 OC AE 00 00208 
ef 04 AE 8 OF 
0 56 13 
0000v 0216 

10 AE 50 DO 00219 
50 10 «AE + 0210 
5E 74 AE YE 00221 
OFFC = BF BS 8 3 

554 bytes, Routine Base: _BASSCODE + 0C1D 


3193 


1 


Nm 
= 
ed 


™~m 
“ 
wr 


32$: 


3a: 


TA_TYPE, #21 
A_TYPE, #27 


S$_FATINTERR 
TBSSTOP 


» NO DIGITS, RO 
RANGE 


n A_TYPE, #10 
ATALTVPE. wii 
#38, LARGEST_EXP 
RATA.TVPE. #21 
DATA_TYPE, #27 
#308, LARGEST_EXP 
DATATYPE, #28 
#4932, LARGEST _EXP 
KERNEL BLOCK, 
BAS_OUT_STR_LEN, R4 
BAS“ OUT STR, R3 


LAGS 
NO_DIGITS, RO 
PLAIN_F_FORM_11 


KERNEL BLOCK, R2 
DATA_TYPE, R5 
BAS_OUT_STR_LEN, R4 
BAS-OUT~STR; R3 


S 
116(SP5 


SP 
#°M<R2,R3,R4,R5,R6,R7,RB,R9,RI0,R11> 


rete Bliss-32 V4.0-7 
BASRTL.SRCJBASCVTOUT. 


4 
B32;1 
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3131 
3133 


135 
138 


140 
144 


boa SO, heen oles y 
| 
BASRTL. SRC JBASCVTOUT .B52; 1 


3 
| BASSCVT_OuT hese -1984 00:10:59 AX-11 Bliss-32 V4.0-74 Pa 2 
Reta 1ergeen13be 99:82:23} 9 04 
; 3 194 1 ROUTINE PLAIN_F_FORM_11 ( ! Plain old F formatting : 
; 4 195 1 NO_DIGITS, : 3 
3 5 136 1 FLAGS, : ; 
; ° 197 1 KERNEL _ BLOCK, ' 3 
3 138 1 AS_OUT_STR ' 3 
3 8 199 1 BAS_OUT_STR_LEN, : 3 
3 2559 99 1 LARGEST" EXP ‘ ; 
; 2560 01 1 ) : JSB_FORMAT_A6 = 3 
; 2561 02 1 3 
3 266 1 tee 3 
; et? Be ! FUNCTIONAL DESCRIPTION: : 
3; 2565 Be 1! Do plain old explicit point unscaled formatting. Strip leading and : 
3 208 bs : } trailing spaces if necessary. : 
5 208 4 : FORMAL PARAMETERS: : 
; 2570 ta & NO_DIGITS.rlu.v number of actual significant digits in value to 3 
; 2571 \¢ 1! be formatted $ 
; ar¢ ize FLAGS.rlu.v no flags are gopitseple 3 
3; 257 14=#1! KERNEL_BLOCK.mz.r block returned by kernel conversion routine 3 
; 2574 se15 3 3 BAS_OUT_STR_LEN.wlu.v length of output string (handy for fixed length : 
3; 2575 1 1! output strings 3 
; 2576 iy 69 E BAS_OUT_STR.wt.dx the output string : 
; 44 18 : LARGEST~EXP.rlu.v Largest possible exponent for data type : 
; 2579 320 1 ! IMPLICIT INPUTS: F 
; 2580 3221 1! 3 
; 2581 3556 1} NONE 3 
; o8e § . 7 3 
: 258 4 1 ! IMPLICIT OUTPUTS: 3 
; sees 2e5 61! 3 
3; 2585 3226 1! NONE : 
3; 2586 3227 1! 3 
3; 2587 3228 1 ! COMPLETION CODES: : 
; 2588 $562 1! : 
: 2589 3230 1! Returns STR$_TRU 3 
3: 2590 3231 1! 3 
3: 2591 3538 1! SIDE EFFECTS: : 
; 236 $3 1! : 
3; 259 3234 1! NONE d 
3 2594 3235 1! 3 
3 ap $599 : too : 
3 238 3238 BEGIN d 
; 2598 239 i 
3; 2599 set i 
; 2600 41 LOCAL 2 i 
; 2601 $508 ZEROES_DESC : BLOCK (8, BYTE], ! if used must be kncwn to whole module ‘ 
; 260 4 ZEROES_PTR, i 
3; 260 4G STATUS; ‘ 
3 2604 45 : 
3; 2605 46 MAP ‘ 
3; 2606 4 BAS_OUT_STR_LEN : REF VECTOR, i 
3; 2607 48 BAS-OUT"STR™: REF VECTOR (2, LONG), i 
3 008 $3 KERREL_BLOCK : REF BLOCK CK_KERNEL_BLK_SZ, BYTE); 


— 
' 
' 


IF (.LARGEST_EXP GTR K_RANGE) 
THEN 


PIPIMIPOPOPONoPoNofononononofpofnonorny 
PAA COOMA 
NOME WN O OONOULS Wh 
f + 
-@ 
om 
oa 
eel 
~erz 
m 
Pp) 
oO 
@w 
~< 
at 
m 
@e 


; 26 

; 26 

; 2620 

: 1 

3; 26 : 

3; 2624 

; 2625 

3 2626 6 

3; 2627 68 ZEROES_DESC CDSCSW_LENGTH) = .LARGEST_EXP; 

; 2628 $68 ZEROES_DESC betes oer reed = DSCSK_DTYPE_T; 

; 2629 70 ZEROES_DESC CDSCSB_CLASS] = DSCSK_CLASS_D; 

; et 4 ZEROES_DESC CDSCSA_POINTER] = 0; ! STRSDUPL_CHAR will alloc space 
; O36 ig ZERO = %X°30'; 

3; 263 ; 74 STRSDUPL_CHAR (ZEROES_DESC, LARGEST_EXP, ZERO); 

3: 2634 75 ' create string of zeroes 

; 63? 6 ZEROES_PTR = .ZEROES_DESC CDSCSA_POINTER); 

3 2637 378 END 

; 2638 79 ELSE 

3; 2639 280 ZEROES_PTR = ZEROES; ! use string of 38 zeroes 

3 2640 3281 

3 2641 $508 

; oh | 28 IF (.KERNEL_BLOCK CDEC_EXP) GEQ 0) 

; 264 see THEN 

3 2644 85 + ‘ 

3: 2645 sae ! The number is greater than or equal to 1 

; sees 28 te 

3 2647 $88 

3 2648 89 IF (.KERNEL_BLOCK CDEC_EXP] GEQ .NO_DIGITS) 

3 2649 290 

: 2650 $3) BEGIN 

; 2651 36 + 

3 236 9 ! This entire number consists only of integer part. Put the number 

3; 265 94 ! returned by the conversion routine and optionally some trailing 

3 2654 95 ! zeroes into the return string. 

3; 2655 38 fe 

: $26 9 

3; 265 98 LOCAL d 

; 2658 99 ZERO_STR_DESC : BLOCK £8. eytt. ' desc. for trailing zeroes 
; 223 oY INT_STR_BESC : BLOCK (8, BYTE]; ! desc. for integer portion of number 
3; 2661 8 INT_STR_DESC CDSCS$W_LENGTH) = .NO DIGITS; 

; 666 0 INT_STR_DESC $33 1 st = DSCSR_DOTYPE_T; 

; 266 04 INT_STR_DESC [DSCSB_CLASS) = DSCSK_CLASS_S; 

> 2664 05 INT“STR-DESC CDSCS$A POINTER) = .KERNEL_BCOCK [STRING_ADDR) + .KE 
3 2665 O¢ ZERO_STR_DESC CDSCSQ_LENGTH] = .KERNEL-BLOCK CDEC_EXP) - .NO_DIG 
3 2666 30 ZERO-STR-DESC COSC$B-CLASS) = DSC$K_CLASS_S; 


F 3 

| BASSCVT_OUT 16-Sep-1984 00:10:59 AX-11 Bliss-32 V4.0-74 
hei 1e-8ep-19 4 90:38:23 BASRTL. RCIBASCVTOUT.B 2;1 
/3 2610 INITIALIZE_DESC; 

3 

18 i The Largest possible exponent for single and double fhoatin point is 38. 

614 ' G and h sees ne however, have largest exponents of and 4932 respectively. 

615 i NUM1$ must be able to print out all these characters but the user who doesn't 

oig ' want all these should not have to pay the performance peees <e Therefore, 

61 ' fill cherecters (zero, star, blank) are initialized to size 38 and then 

\8 ! re-initialized here only if necessary. 


RNEL_BLOCK COFFSET); 
ITS; 


—— 


—@w 


Be Be Be Be Be Be Os Se Se Be Se Be Se Se Se Se Se Ge Se Se Se Se Se Se Se SH Se SH Be we Se Se Se Se Se Se Se Se SSeS Se SH Se SESH ee Se Se Oe FH Se Se ee BH Se ee 


Q- OPP eT eee eT ee eee ee ETE eT ee eT eee ee ee ee ee ee ee ee ee Ts BB De ee ee ed | 


I eat ACT ii 2 at hte tgs Git BIDE OLED DPE AMEN NE EAA SADA A IAS ND AO Ah ett EY AY SO ARTO A AERA EDAD OLLI Ee IE 


POV ST FLD FFF POV GS VIS LS SF IIIT AF SF ON AT 


DROK MNT NOR. OAD — UM FMNOR. DRO CUM TM OR. OPO MUM TN OR. DHO— CUMIN OR. DOO— CUM 
DD IIOP IVID SF FST ST TST TT TAMNNMNMANMANNN OO000 
aleAlealsalealalealealalealealealsalealsalealealealsalell eal eal eAladl atl allel ealal wal 
AeA alate eA ele eee alae eel ala ala al all all al al alata) ala all ala alesse se Ae Ae Ae eee! 


“ee 
o 
a 
=< 
os ws 
Ln] ‘ 
_ r=) 
w (ve) 
Ww a 
ond —— i) 
** -_ 
~N oOo 4 
ve uw vu 
~w@ oO 
™ 4 = 
Bw vw @ 
°3 oO @ 
° = 
we @ uw 
>> Vv Q 2 
— “ = aa: 4 
Nm w ws Caml) 
me a z aw 
‘@ a Vv 4 Me 
on a “ w w 
nu z ws = La 
Ca * 4 4 a °° ws 
_— aad d we 
@- @ a + aoc 
— =z iw 
tod a w <= (mn) io 
ae ” af a “zz 
wm = @ a ar 
<< w a oo 
<«z@ uw oo aT. S 
>w Vv nw to | @ 
w I aw C¢ 
w w =<2z A 
a we wo 
v 7 o ar. 2m 
an a “ vr ca 
we at w w ww ue 
“+ 2 a ww aw aa 
ow t =) ay ow 
wm cere — ws eters WS 
—- =o z pe ° sremtuuir § iw | 
on - w 2 - i) YrwO tt & 
o-- waa = Cc 'owMwum 
a con 2 °o Mw sOMa-e 
Tr €}wm z w - “60.0 «Meer j 
ono -—w ~ w = we => ti-OMW | 
oo ao + ” = _ = ae JUIWOnr f+ | 
-— ere w bo °o ss wow? | Oem | 
=) ~<wOo ~ v ~ a —_ ‘ @axws~ B&O ~ | 
aan Ae o <x ~ o mw MMe WIMMO—wW, Oo 
mee ws a. n" oa we RPHwWMYUYZ + | 
wun YE w” ”“ w ” ea > YUM uw a w” | 
‘+ Que ” 4 vw ” € >->o wm-e 2S tie ” 
uoovw wn” =) a . —? ~ =) o @ oo Ott 1 2 I 
-—— um 6 _ vu a ” - . iT non of 
an Lm] a ” ” ws mJ ae oOo nn - rae mn] | 
mw z - w 5 ia 2 rs) oOus mar = uw 2 | 
we oO wn (=) a <= o *. @ ws PA Swe o 
az si _ ‘ ‘ _ a _ om cc ~~ Mw MaAo®z it Lad 
ren ” >= a a wn” ” a - eee ee SP ee ” 
-OoOc uw co - ‘ =) =< veo <«>2—--woct i) 
oa. @ eo ” ” a w 5) COs SR woCos4d® | 
‘hh — Zz u i " - ma 4 Cc +j3@ wowa ttt & Ea 
< vw < oO > « Vv Vv «e @ 't+t mote Vv 
Ar oO 4 Cm] me oO w o Eh Later oO 
wud —~+ ww ” ws a Oo ”" a) a ‘= o PARMA VCYVYVUYUE —_ 
YOu ow o ~ z ws + @ uw e VB VLVONNMONY @ 
aan ww at at > 7 ao VM MMMMAAaaGa i 
Las —~ 2 ad . z =) . 4 e Yiw A2000-A4AK4 = | 
vv w ' - YY ” w a ww vw ee wo i) ive} i 
YUP zon ° ” wo ad $ za Oo c Qa 1 VUVUYUM z 
Sel al: 4 « z ~ w ? a =< al - Ke VOEVWNNMNMOE < 
we w a = a w @ c—- NNYVOWWwwwe w 
aanM‘“ x “ é ve - ” i v — KY WWwWwWwOoOooaaM ae 
a a 4 .* = - =z ° w“ oOo . = co ” + BaaGc titi 2 ° 
eatin ~~ w —_~ 7 aoe ~ w °o we (tt &eaeaeacie ~s 
-- © we avo ao ff ad za 2 —f eee w 
MwMNvw wrt zeae Zz a - - « Ze Ree ONY et 
‘oo —- w weOo- Ww z . _ N w zw a WMmMnmM ''t OD —- 
oor 2 - ~Zz w ~ —_— «6 <= tt BwevvUr 
aac _ “no w ”" a -a Oo £ vw ere re aeadaedg 
SN aad iw wt od za ww oO 2222aacaar 
nNO . -@Oo —- w wew @ « - oe te Ki Nie Nite Mite OD 
(ve) we 
” 2 
= 
so § 
Cc 
“ 
- 
£ 
oom 
! 
| 


ce i i ch mee 
i=) eek anh onl anh ah anh aaa Le) 
Nt th EE EEN A 


— 

3 

ia 

> ~ Tron db db A Al COK-VUMmMaTN @o ah Ab AA) 
SX SSS SSR CRE RR Bases eeaeaseoosseoS goose 
25 

@Q-- 


ah hh dt eh ee ee oe TL oT aL Lee eT ee eT ec eT eT eT ee ee ee ee ee ee ee 2 ee ee 2 2 ed de ee 


e 


SSNS NSS Ue 


-@ 
on 


SNS NN 


sa ch sh 


VIFWN —OOONOUSE 


PPA 


o 
o 


uw 


oo 
oo 


7 


0 00 09 CO 
oO 


WA.AIANIAIANINIAI NAIA ANNAN AIA ANINN AANA AIAN 


WWAWAI. ANI AAIAN AIAN ANNAAAW AAAI AAANIAAA NAAN 
COOOO000OO@B@MOWo 


oo = 
=—OOONAVE WN (OO OONOU Swine 


ae 
oo 
So 


40 
4 


Fe et ot et et et et ek 
Ron a oO 


—COOOwWOUE WN oO 


PEPE EF PNE PAA IAAI IIMA BE BEEBE PN PWNAGE EEE PALE EE EEE 


H 3 
IESE GES WSL OHeNGHE tal 


74 
BASRTL. BASCVTOUT .B52;1 
MINUS_DESC 
LSE 


IF (.FLAGS AND V_STRIP_SPACES) THEN NULL_DESC ELSE BLANK_DESC 
END 
, INT _STR_DESC, DOT_DESC, FRAC_STR_DESC, 
BEGIN 
IF (.FLAGS AND V_STRIP_SPACES) THEN NULL_DESC ELSE BLANK_DESC 
END 


); 
BAS_OUT_STR_LEN [0] = 
BEGIN 


IF (.FLAGS AND V_STRIP_SPACES) 
THEN 


IF (.KERNEL_BLOCK CSIGN] LSS 0) THEN 1 ELSE 0 
ELSE 
2 
END 
+ .NO_DIGITS + 1; 
END 
ELSE 
* BEGIN 
This is a purely fractional number which should be put out in F format 


LOCAL 
ERO_STR_DESC : BLOCK fs. BYTE), ' desc. for leading zeroes 
FRAC_STR_DESC : BLOCK (8, BYTE); ! desc. for fraction 
ZERO_STR_DESC pscee_ chase) = DSCSK_CLASS_S; 
ZERO_STR_DESC CDSCSB_DTYPE] = DSCSK_DTYPE_T; 
ZERO-STR-DESC CDSCSWILENGTH) = -.KERNEL_BCOCK (DEC_EXP); 
ZERO_STR_DESC CDSCSA_POINTER] = A eg PTR; 
FRAC-STR-DESC CDSCS$B-CLASS) = DSCSK_CLASS_S: 
FRAC_STR_DESC ([DSCSB_DTYPE] = DSCSK_DTYPE_T; 
FRAC-SIR~DESC COSCSW7LENGTH) = .NO DIGITS: 
FRAC STR_DESC CDSCSA_POINTER] =  RERNEL BLOCK CSTRING_ADDR) + .KERNEL_BLOCK COFFSET); 
STATOS ="STRSCONCAT TBAS_OUT_STR (OJ, 
BEGIN 
F C KERNEL BLOCK CSIGN) LSS 0) 
MINUS_DESC 
ELSE 
IF (.FLAGS AND V_STRIP_SPACES) THEN NULL_DESC ELSE BLANK_DESC 
END 
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Nn 3 
nen 16-Sep-1984 00:10:59 AX-11 Bliss-32 V4.0-74 Page 91 
1-054 19-80-1388 90:12:23 BASRTL. bes eRe WtouT b8251 9 21)” 
50 BD 109 25$: PUSHL RO ; 
Oc AE 9F 001CB PUSHAB FRAC_STR_DESC t 3411 
18 AE 9F OOICE PUSHAB ZERO-STR-DESC : 
00000000' a 9F 00101 PUSHAB DOT DESC : 
2 D4 00107 CLRL oR + 3414 
1 8 0109 TSTL (R1) 3 
g 18 00108 BGEG 26$ ; 
D6 001DD INCL Re ; 
50 00000000' EF 9E 001DF MOVAB MINUS DESC, RO : 
13° (11 O16 BRB 28$ : 
09 58 £9 O1E8 26$:  BLBC FLAGS, 27$ + 3419 
0 00000000' FF F Cie MOVAB NULL DESC, RO : 
7 11 OO1F BRB 2 ; 
50 00000000" EF 9E OO1F4 278 MOVAB BLANK_DESC, RO : 
9 DD OO1FB 28$ PUSHL R : 
53 DD OO1FD PUSHL BAS_OUT_STR + 3411. 
000000006 00 06 FB OOlFF CALLS #6, STRSCONCAT : 
57 50 DO 00206 MOVL RO. STATUS ; 
Oc 58 €9 00209 BLBC FLAGS, 30$ + 3432. 
05 52 €9 0020C BLBC R2, 29 + 3435) 
50 01 DO 0020F MOVL #1, RO : 
07 11 00812 BRB 31§ ; 
50 D4 00214 29$:  CLRL RO : 
03 11 00216 BRB 31$ ; 
50 02 pO 00218 30$: § MOVL #2, RO : 3432) 
50 56 CO 0021B 31$:  ADDL2 NO.DIGITS, RO : 3442) 
50 55 C2 OO2TE SUBL 2 os F | 
64 01 AO 9E 00221 MOVAB 1(RO), (BAS_OUT STR_LEN) : 
26 04 AE D1 00225 32$: CMPL ARGEST_EXP, #38 : 3445. 
OA 15 00229 BLEG 3$ : 
18 AE 9F 00228 PUSHAB ZEROES_DESC : 3447) 
000000006 00 01 FB 00226 CALLS #1, STRSFREE1_DX : | 
5 57 pdO 002 33$ MOVL STATUS, RO 3 3449 | 
20 CO 00238 ADDL2 #32, SP : 3450. 
O1E4 8F BA 00238 POPR #*°M<R2,R5,R6,R7,RB> ‘ | 
05 0023F RSB : | 
3; Routine Size: 576 bytes, Routine Base: _BASS$CODE + OECE 


 BASSCVT_OUT 
Reis ¥ 
81 451 ROUTINE FANCY_F_FORM_11 ( 
81 4d¢ NO_INT BIGITS 
1 4 NO-FRAC_DIGITS, 
81 454 NO“DIGITS, 
81 455 GS, 
81 496 KERNEL_BLOCK, 
81 45 CURRENCY 
81 458 IGIT_SEP, 
81 45 RADIX"PT 
82 460 BAS_OOT_STR, 
8 461 BAS-OUT~STR_LEN, 
8 106 LARGEST" EXP 
K 46 ) : JSB_FORMAT_A11 NOVALUE = 
8 464 
8 465 144 
8 466 i FUNCTIONAL DESCRIPTION: 
8 468 Do all of the Print Usin 
8 469 
8 i FORMAL PARAMETERS: 


WWAWAWANNAWAA 


WAWAWIWWNWWI winonorfunon 


Gecece cece cececEcece 


REREEER 
Fk ek ek el Dekel ek Dede tte dee ee et et et et et et et tt 


OOO OWOWOWOWODOWOOWON NNN NS 
WR SO OONOAUE WN OOONOAUS WN oO 


&- 
Ye) 
r~ 


PIII wet wet st st st in st st st sn at kt dd dt 


RoRoRoRononononononononononononononononononofononorononononononononoronony 
PAA AAAI NI AIAN IAI AANA AAAI WN 


aetot tottot tetetetetetetatetetet a3 


NO_INT_DIGITS.rlu.r 
NO_FRAC_DIGITS.rlu.r 
NO DIGITS. rlu.v 
FLAGS. rlu.v 
KERNEL_BLOCK.mz.r 
CURRENTY .rt.dx 
DIGIT_SEP.rt.dx 

RADIX PT. rt.dx 
BAS_OOT_STR_LEN.wlu.v 


BAS_OUT_STR.wt.dx 
LARGEST_EXP.rlu.v 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 

NONE 


CY : REF BLOCK [ 
SEP : REF BLOCK C, 
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BASR BASCVTOUT.B52;1 


ee tt) te te ee te ee ee ono 
Goce 
ro 
-o 
-3 
ee ef 
we 
So 
ou 
oo 


g formatting for F format. 


number of integer digits in output string 
number of fraction digits in output string 
number of significant digits in value 

no flags are apes conte 

parameter block from kernel routine 
currency symbol 

dogit group separator 

radix point ; _ 
Length of output string (handy for fixed length 
output strings 

the output string : 

largest exponent possible for data type 


BYTE) 
BYTéed, 


—o | 


508 RADIX_PT : REF BLOCK C, BYTE), 
869 509 BAS_OOT_STR_LEN : REF VECTOR, 
870 219 BAS OUT STR’: REF VECTOR f » LONG), 
37) 2} KERREL_BLOCK : REF BLOCK CK_KERNEL_BLK_SZ, BYTE]; 
B78 218 LOCAL 
874 514 ZEROES_PTR, 
875 515 BLANKS PTR, 
578 218 STAR_PTR, 
87 51 STAR_STR_DESC : BLOCK (8, BYTE] ' desc. for asterisks 
878 518 BLANRS STR DESC : BLOCK (8, BYTE), ' desc. for leading spaces 
879 219 ZERO DESC : BLOCK {8 evitd. i desc. for trailing zeroes 
80 0 INT_STR_BESC : BLOCK (8, BYTEI, ' desc. for integer portion of number 
881 521 ZEROES _BESC : BLOCK (8, BYTE), ! place to create string of zeroes 
883 358 STAR DESC’: BLOCK C8, BYTEL, | BiSse se Srecee Strint of store” 
° ° ! place to create string of stars 
884 524 LEADING_STR_DESC : BLOCK Fa’ BYTE], : place to create leadin zeroes 
tH ; 5 LENGTH, } ength of leading blanks or 
' zeroes 
887 5 ; CR_DESC : BLOCK fg. BYTE], ! desc. for CR 
888 528 DR_DESC : BLOCK (8, BYTE], ! desc. for DR 
889 44 CR_STR, 
90 530 DRISTR; 
891 3531 
89 236 INITIALIZE_DESC; 
9 53 
94 534 CR_STR = ZASCIZ'CR'; 
344 aa DR_STR = ZASCIZ'DR'; 
897 3337 IF (.FLAGS AND V_CR_DR) NEQ 0 THEN 
898 538 BEGIN 
2899 3539 CR_DESC CDSC$B_DTYPE) = DSCSK_DTYPE_T; 
900 gec0 CR_DESC CDSC$B_CLASSJ = DSCSK_CLASS_S; 
901 541 CR_DESC CDSCSW_LENGTH) = 2; 
90¢ 334¢ CRIDESC CDSESA-POINTER) = CR STR; 
90 354 DR-DESC CDSC$B_DTYPE] = DSCS$R_DTYPE_T; 
904 544 3 DR-DESC CPSC$B~CLASS? = DSC$K-CLASS-S; 
905 545 DR_DESC [OSC$W_LENG 4] = 2; 
906 546 3 DR-DESC [DSCSA“POINIER] = OR_STR; 
907 547 END; 
908 548 
909 549 ‘+ ; : 
910 550 ! The largest possible exponent for single and double float ing point is 
911 551 i 3. & end h floating, however, have largest exponents of 308 and 4932 
a 226 ' respectiveiy. NUM1$ must be able to gerne out all these characters but 
91 55 ! the user who doesn't want all these characters should not have to pay the 
914 554 ! performance penalty. Therefore, fill characters (zero, star, blank) are 
! initialized to size and then re-initialized here only necessary. 
919 335 i initialized 38 and th i lized h ly if 
917 285 
918 558 IF (.LARGEST_EXP GTR K_RANGE) 
919 559 THEN 
920 560 BEGIN 
36) 561 LOCAL 
9 § 26¢ ZERO 
3s 56 STAR : BYTE 
924 564 BLANK : BYTE; 


4 
ep-1984 00:10:59 AX-11 Bliss-32 V4.0-74 
1984 eet EBASRTL SRC BASCV TOUT .B32s1 
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dD 4 
CVT_OuT 16-Sep-1984 00:10:59 AX-11 Bliss-32 V4.0-74 
va 12-808- 1 38e 90:30:23 BASRTL.SRCJBASCVTOUT.B32;1 
5 6 
$ se ZEROES_DESC [DSCS$W_LENGTH] = .LARGEST_EXP; 
6 ZEROES DESC DSCSB-CLASS4 = DSCSK_CLASS_D: 
8 36 ZEROES-DESC CDSCS$B-DTYPE) = DSCSK-DTYPELT; 
4 $ ZEROES-DESC CDSCSA-POINTER) = 0; '” STRSDUPL_CHAR will alloc space 
1 7 ZERO = x'30'; 
: 7 STRSDUPL_CHAR’ (ZEROES_DESC, LARGEST_EXP, TERO) ; 
7 create string of zeroes 
4 57 ZEROES_PTR = .ZEROES_DESC CDSCSA_ POINTER: 


Lance st EXP; 


: 
3 0 
1 
a 3 
oO 4 
3 575 
: 278 BLANKS_DESC (COSCSW “bENGTHI =, 
; 7 BLANKS_ DESC aaet B-CLA 3 f = DSCSK_CLASS_D 
; 8 278 BLANKS_DESC (CDSC$B_ DTYPE = DS He itt ri 
; H 144 BLANKS-DESC CDSCSA_POINTER] = 0; 
3 2941 581 BLANK = %X‘'20'; 
; 286 STRSDUPL.. CHAR (BLANKS DESC, LARGEST_EXP, ,BLANK) ; 
3 58 ' create string of blanks 
; See eee BLANKS_PTR = .BLANKS_DESC COSCSA_POINTER); 
; 586 STAR_DESC CDSCSW_LENGTH] = gL ancest EXP; 
3 587 STAR_DESC CDSCS$B_CLASS) = DSC$K LASS .D; 
3; 2948 588 STAR_DESC CDSCS$B_DTYPE] = DSC Kk7b YPE_T; 
3; 2949 589 STAR_-DESC CDSCSA_POINTER] = 0; ~ 
3; 2950 590 
: 2951 591 STAR = &X‘2A‘'; 
; 236 STRSDUPL_ CHAR (STAR DESC, LARGEST_EXP, STAR) ; 
; 59 ' create string of asterisks 
3: 2954 594 STAR_PTR = .STAR_DESC CDSCSA_POINTER]; 
3; 2955 595 ; 
: 596 END 
3 597 LSE 
3; 2958 598 ZEROES_PTR = ZEROES; ! use string of 38 zeroes 
3; 2959 599 PLANKS @PTR = BLANK S; 
; 0 600 STAR_PTR = STAR; 
3; 2961 601 
3 4 60 IF (.KERNEL_BLOCK CDEC_EXP] GTR 0) 
3 296 60 THEN 
3 2964 604 + 
3: 2965 op? The number is greater than or equal to 1 
3; 2967 607 
3; 2968 608 IF (.KERNEL_BLOCK CDEC_EXP] GEQ .NO_DIGITS) 
3; 2969 609 H 
: 2970 610 BEGIN 
3: 2971 611 '¢ 
: 2\¢ i This entire number consists ott of integer part. Put the number 
; 61 ' returned by the conversion routine and optionally some trailing 
3 ore ele t zeroes into the return string. 
3; 2976 o1¢ INT_STR_DESC CDSCS$B_DTYPE] = DSCSK_DTYPE_T; 
3: 2977 61 INT-STR-DESC pSCSB. CLASS] = DSCSK_CLASS_D; 
: et 4 IF ROT T(.FLAGS AND-V_COMMA) NEQ O”AND 
; 619 4 CELA GS AND v “LEADING_ZERO) NeQ 0) 
3; 2980 $e 3 THEN 
3; 2981 621 4 BEGIN 
o. 
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pager 
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4 
1b-5¢ -1984 00:10:59 AX-11 Bliss-32 V4.0-74 Pa 95 
1 =300 71382 90:19:23 YBASRTL SRe BASCVTOUT.8352;1 9° 23) 
6 § INT_STR_DESC PoScsA.poruteds = . KERNEL BLOCK CSTRING_ADDR] + .KERNEL_BLOCK COFFSET); 
? i Ent STRDESC DSCSWULENGTH] = .NO_DIGITS; 
625 ZERO_STR_DESC DSCS$W_LENGTH] = gRERMeL BLOCK CDEC_EXP] = .NO_DIGITS; 
6 § ZERO_STR_DESC $431 MSH = DSCS$K_CLASS_D; 
6 FER Owe TRADE SC DSCSB_OTYPE) = DSCSK_DTYPE T; 
6 8 ERO-STR_DESC LDSCSA-POINTER] = .ZEROES PTR; 
6 BLANRS_STR_DESC [DSCSB_DTYPE] = DSCSK_DTYPE_T; 
630 BLANKS STR_DESC LDSC$B CLASS] = DSCS$K_ CLASS _S; 
631 LEADING. STR_DESC DSCSB_CLASS] = DSCSR_CLASS_§; 
6 § LEADING_STR_DESC LDSCSB_DTYPE] = DSCSK_DTYPE_T; 
6 LEADING _STR_DESC [DSCSA_POINTER) = .ZEROES_PTR; ’ 
6 LEADING _STR_DESC LDSCSW_LENGTH] = 0; ! this will be changed 
° 5 ' later 
°¢ 
6 ; ie advantage “ rhe fact ree soegt tve numbers have to have trailing sign if 
O38 ; the currency symbol is expected to float. 


LENGTH = .NO_INT_DIGITS = .KERNEL_BLOCK CDEC_EXP) - 
BEGIN 


IF ((.FLAGS AND V_TRAILING_SIGN) NEQ 0) 
THEN 


—- ee 


eading zeroes should be printed, then replace the blanks descriptor 
a leading zeroes descriptor. 
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0 ! trailing sign 
ELSE 
BEGIN 
IF (.KERNEL_BLOCK CSIGN] LSS 0) AND 
650 (.FLAGS AND V_CR_DR) EQL 0 
$02) HEN 
$26 ELSE 0 
65 
654 END 
655 
3656 END 
65 - ! negative number - leading sign 
$38 BEGIN 
rot] IF ((.FLAGS AND V_CURRENCY) NEQ 0) THEN .CURRENCY CDSCSW_LENGTH] ELSE 0 
66 END 
66 - ' currency symbol 
roe) BEGIN 
re IF ((,.FLAGS AND V_COMMA) NEQ 0) 
208 g ‘ REANEL BLOCK COEC_EXP] - 1)/3*.DIGIT_SEP CDSC$W_LENGTH] 
6 0 
671 
7 END; ' commas 
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IF (.FLAGS AND V_LEADING_ZERO) NEQ 0 

LEADING_STR_DESC CDSCSW_LENGTH] = .LENGTH 

BLANKS_STR_DESC COSCSW_LENGTH] = .LENGTH; 
ow. STR_DESC COSCSA_POINTER] = .BLANKS_PTR; 
STAR_STR_DESC ([DSC$B_DTYP H4 = DSCSK DTYPE_T; 
STAR_STR_DESC CDSCS$B_CLASS]_ = DSCSK-CLASS- S: 
Hi DESC CDSC$w- “LENGTH = .NO_INT _bIGITS - .KERNEL_BLOCK CDEC_EXP] - 
ce AND V_TRAILING_SIGN) NEQ 0) 

' trailing sign 

ELSE —_ 

BEGIN 


IF ¢. ert BLOCK ont Ne 0) AND 
(.FLAGS AND V_CR_DR) EQi 0 
THEN ‘s 


ELSE 0 
END 
END 
BEGIN 
IF ((.FLAGS AND V.COMMA) NEQ 0) THEN (.KERNEL_BLOCK CDEC_EXP) - 1)/3 ELSE 0 


! negative number - leading sign 


END; ' commas 
STAR_STR_DESC CDSCSA_POINTER] = .STAR_PTR; 
IF ((.FLAGS AND V_COMMA) EQL 0) 
THEN 

~ BEGIN 

There are no commas in this number 


IF (.FLAGS AND V_CUR RENCY) NEQ 0 AND 
(FLAGS AND V7LEADING_ZERO) NEQ 0 
THEN 
BEGIN 
STRSCONCAT (BAS_OUT_STR (OJ, . CURRENCY 
(IF (. FLAGS AND "V TRAILING SIGN) NEQ 0 THEN NULL_DESC 
ELSE IF (.KERNEL_ BLOCK CSIGN} LSS C AND (.FLAGS AND V_CR_DR) 
EQL 0) THEN MINUS_DESC ELSE NULL_DESC) 
on LEADING_STR_DESC, INT_STR_DESC, ZERO_STR_DESC) 
ELSE 
BEGIN 
STRSCONCAT (BAS_OUT_STR (0), 
(IF (.FLAGSANDV_STAR) NEQ 0 THEN STAR_STR_DESC ELSE NULL_DESC) 
(IEC ~FLAGS AND V7STAR) N 


‘pager 


'¢ 


i Stars and leading zeroes are mutually exclusive. 


AX-11 Bliss-32 V4. Pa 97 
BASRTL.SRC BASCVTOUT B82; :1 9° (22) 


1$se0ctgee 0:J0:5 


NULL DESC 
ELSE 


If no star fill, then 


; ; : rt | check if leading zeroes should be printed. 

3 31 § tg 5 CIF (FLAGS AND V_LEADING_ZERO) NEQ 0 

3 31 74 THEN NULL_DESC } Age big B sorese 
; 3104 744 é ELSE BLANRS. STR DES rg, 26 

; 3105 745 (IF (.FLAGS AND -V_CORREN ENS NEQ 0 THEN CURRENCY “a E NULL * Desc), 
3 198 74 (IF (FLAGS AND V_TRAIL “ my? ay 0 THEN NULL 

; 19? 74 ELSE IF (. KERNEL BLOCK AND (.FLAGS IND V_CR_DR) 

3; 31 74 EQL 0) THEN MINUS DESC . i NULL_D 

: 3109 74 (IF (.FLAGS AND V“LEADING ZERO) REQ O THE 

; 119 9 _ LEADING_STR_DESC ELSE NULC_DESC), INT_STR_DESC, ZERO_STR_DESC) 
; 1g 7 § 4 END ! end of no commas 

3; 311 7 ELSE 

3 31146 754 '¢ 

; 3115 755 i There are commas in this number and we need to do some looping on the call to 

3 19 P38 z concatenate. The processing got too complex to express in a single call. 

; 3118 758 4 BEGIN 

3: 3119 759 4 

: 3120 760 4 

3; 3121 761 & COUNTER 

: 31 é 762 4 FIRST GROUP 

i 3195 763 4 TEMP_INT ODES BLOCK (8, BYTE); 

3; 3125 765 4 ! Concatenate the leading zeroes to the integer, if moqeseery so commas will 

3; 31 $ 708 4 | be inserted at the proper places. The length and pointer felds of INT _STR_DESC 

3 ; a ? were not intialized earlier so that we can fill them in here. 

331 § 769 4 if (.FLAGS AND V_LEADING_ZERO) NEQ 0 

3; 31 770 & THEN 

3; 3131 771 BEGIN 

331 ¢ ak 

7351 77 TEMP_INT_DESC Decee CLASS) = DSCSK_CLASS Tt 

3; 31 774 TEMP_INT_DESC COSCSB_DTYPE) = DSCSK-DTYPE-T; 

; 3135 775 TEMP_INT_DESC COSCSW-LENGTH) = .KERREL BLOCK CDEC_EXP); 

3 136 re TEMP_INT_DESC COSCSA_POINTER] = .KERNEC_BLOCK chhren tis ADDR] + 

3 31 77 -KERNEL_BLOCK COFFSET 

3; 3138 778 INT_STR_DESC Bit SC$W_LENGTH) = 0; 

i; 3139 79 INT~STRIDESC COSCSATPOINTER) = 0; 

; yd 44 ° "adjust leading zeroes length if extra commas will be required. 

3 128 738 LEADING STR_DESC bpscey LeweTH) = .LEAD NG_ $78 DESC COSC$W_LENGTH) 
3 3144 7 (T. LEADING STR Grid = COSC$W_LENGTH eto DIGIT SEP CDOSC$W_LENGTH)); 
7 3145 785 teee 1-04 LEADING STR gPESe Coscs@_t ‘ +] ING th DESC SC$w_LENGTH) 

3 166 7 teee 1-048- ((, LEADING STR DESC DSCSO- ir iY, ® ati GTT ~SEP tb atin LENGT Hd) - 1; 
3 314 7 SIRS Bae AT (IN NT STRe bese LEADING. STR_DESC? T_BESC); 

2 re ae - 

: 3150 790 7 FIRST_GR $ = (CCIF (FLAGS AND V_LEADING ZERO) NEQ 0. THEN .LEADING_STR_DESC COSC$W_LENGTH) 
3 3151 791 4 ECSE + KERNEL _B Lore CDOEC_EXP) - 13 MOD 3) 

3 3152 792 4 STRSEONEAT. (BAS_OUT_STR 


| es 
BASSCVT_OUT 16=Sep-1 AX-11 Bliss-32 v4.0- Page 98 
hes ie: p= 198e 7: sei BASRTL.SRC BAScVTOUT B52: 31 9° (22) 
: 3153 793 & (IF (.FLAGS AND V_STAR) NEQ THEN STAR. STR Pest ELSE NULL_DESC), 
> 3154 794 § (IF CFLAGS AND V"STAR) NEQ 0 THEN Dest 
> 3155 795 6 ELSE CIF (FLAGS AND V_LEADING_ ZERO) eis THEN NULL_DESC 
: 31 § 796 4 LSE BLANKS_STR_DESC)) 
: 31 797 & (IF (FLAGS AND VCURRENCY) | NEQ 0 THEN = CURRENCY ELSE NULL_DESC), 
: 31 8 798 « (IF (.FLAGS AND V TRAILING SIGN) - NEQ 0 THEN L_DESC 
3 31 7? 6 ELSE IF (.KERNEL_6LOCK CSIGN Ss AND ( CFLAGS “END V.CR_DR) EQL 0) 
: 3160 4 THEN MINUS DESC ELSE NULL Desc 
: 3161 01 5 (INT STR_DESC DSt$w LEN TH) = MIN (.FIRST_GROUP 
; 168 0¢ 4 .LEABING STR DESC COSC$W LENGTH] + .NO DIGITS): [NT_STR_DESC)) 
: 316 03 5 COUNTER = (IF (.FLAGS AND V_CEADING.ZERO) REQ THEN ; EADING_STR “bese COSC$W_LENGTH) 
: 3164 04 4 ELSE 0) + .NO DIGITS = TINT_STR-DESC rpscsu LENGT 
; 165 5 4 INT_STR_DESC COSCSA_POINTER) = TINT“STR_DESC CDSCSA SPOINTER) + .INT_STR_DESC CDSC$W_LENGTH); 
; 167 i 4 WHILE COUNTER GTR 0 DO 
: 3169 3 INT STR_DESC COSC$W LENGTH = MIN (.COUNTER, 3) 
: 3170 810 STRSCONTAT (BAS_OUT-STR (OJ, BAS_OUT_STR (OJ, .DIGIT_SEP, INT_STR_DESC); 
> 3171 1 INT_STR DESC COS SATPOINTERS = ,INT_STR_DESC COSCSA_POINTER] * .INT_STRDESC C 
; 7 Big DSCSW_LENGTH 
: 317 81 COUNTER =". COUNTER = INT =STR_DESC cpscsu_ LENGTH); 
: it aie 2 END; '“WHILE loop 
: 176 816 4 ZERO_STR_DESC CDSC$W_LENGTH] = (.KERNEL_BLOCK CDEC_EXP] - .NO_DIGITS) MOD 3; 
; 178 18 ; IF (.2ERO_STR_DESC COSC$W_LENGTH] NEQ 0) 
: 3180 0 4 STRSCONCAT (BAS OUT_STR (OJ, BAS_OUT_STR (0), 
; 181 1 4 ZERO_STR_DESC); 
; 183 4 2ERO_STR_ DESC CDSC$W_LENGTH) = 
: 186 $ 4 COUNTER = (.KERNEL_BCOCK CDEC ib) - .NO_DIGITS)/3; 
: 3186 6 4 WHILE (.COUNTER GTR 0) DO 
> 3187 7 § BEGIN 
: 3188 8 5 ST RSCONCAT (BAS_OUT SIR (0, BAS_OUT_STR [0], .DIGIT_SEP, ZERO_STR_DESC); 
> 3189 29 5 COUNTER = .COUNTER = 1; 
: Hb 31 ? ND; ' WHILE loop 
: 319 END; ' of comma processin 
: $35 . checrottp 
: 136 i Common ending for comma and non-comma. 
: 319 ; 
: 3198 ZERO_STR_DESC osc su ENGTH) = .NO FRAC 016 1S; 
S 3199 B39 STRSCONCAT (BAS_O ey “toy, BAS ODT SIR a tb) 
: 3200 40 (IF (.FLAGSA R10) NEO THEN gRabix _PT ELSE NULL_DESC), ZERO_STR_DESC, 
> 3201 1 4 CIF CFLAGS A “TRAILING SIGN) NE 
; 0¢ é ; IF CAPE RNeL SIGR) LSS 0 
; THEN MINUS Loc ELSE BLANK Desc ELSE NULL_DESC), 
+ 3204 44 4% CIF (FLA ACs AND V_CR_DR) NEQ 
: 3205 5 THEN (IF ~KERNEL =BLOCK CSIGN] LSS 0 THEN CR_DESC ELSE DR_DESC) 
3 06 4 ELSE pre 
: 3208 48 & BAS OUT STR_LEN [0) = (.FLAGS AND -1RA ILING SIGN) NEQ 0 THEN 1 
3 3209 49 5 ELSE (IF .KERNEL Cocock: SIGN) LSS OA AND FLAGS AND V_CR_DR) EQL 0 
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BAS VT_OuT 


END 

BEGIN 
IF ((.FLAGS AND V_CURRENCY) NEQ 0) THEN .CURRENCY CDSCSW_LENGTH] ELSE 0 
END 

BEGIN 

IF ((.FLAGS AND V_COMMA) NEQ 0) 
ogg CRERNEL.BLOCK CDEC_EXP ~ 1)/3*.D1GIT_SEP CDSCSU_LENGTH] 


! negative number - leading sign 


! currency symbol 


END; ! commas 


IAPOPONMIPIPONINIPONIND 2 2 SS BOO 


'¢ 
If leading zeroes should be printed, then replace the blanks descriptor 
a with a leading zeroes descriptor. 


IF (.FLAGS AND V_LEADING_ZERO) NEQ 0 
LEADING_STR_DESC CDSC$W_LENGTH] = .LENGTH 
BLANKS _STR_DESC COSC$W_LENGTH) = .LENGTH; 

BLANKS _STR_DESC CDSCSA_POINTER] = .BLANKS_PTR; 

STAR_STR_DESC CDSCS$B_DTYPE) = DSCSK_DTYPE_ -t3 


STAR-STR_DESC CDSC$B_CLASS] = DSCS$K-CLASS 
STAR STR. DESC CDOSCSWILENGTH] = .NO_INT ‘DIGITS - .KERNEL_BLOCK CDEC_EXP) - 


WN "OC OONAUSWN “OO CONOUS WN O0O~ 


WW 


298 938 


2.0000 

Wwn— 
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0 308 

306 ase IF ((.FLAGS AND V_TRAILING_SIGN) NEQ 0) 

30 94 THEN a . 

4 Bee ee ! trailing sign 
RRR oa 

1 95¢ IF .KERNEL_BLOCK CSIGN] LSS 0 AND (.FLAGS AND V_CR_DR) EQL 0 
1 95 THEN 1 

14 954 ELSE 0 

12 386 END 

i 3H a 

19 959 - ! negative number - leading sign 
? se BEGIN 

3 § 366 IF ((,.FLAGS AND V_COMMA) NEQ 0) 

3 96 THEN 


—_—_ —-—---— 


BASSCVT_OUT 

mitt 

3 964 
3 96 

3 96 

; 208 
3 38 

; 970 
3 971 
3 44 
3 97 

3 974 
3 975 
$ 376 
; 97 

; 144 
3 39 97 

3 0 980 
3 1 981 
3 § oes 
3 98 

3; 3344 984 
g $02 985 
3 6 986 
3 84 987 
3 8 988 
; $e00 989 
3; 3350 3990 
: 3351 3991 
3 326 1644 
; $2 99 

3; 3354 994 
3; 3355 995 
3; 3356 3996 
: 3357 3997 
3; 3358 443 
3; 3359 999 
3 0 4000 
3 1 4001 
; ¢ 400 

; 336 400 

3 3364 4004 
3; 3365 4005 
3; 3366 4006 
fs; 
3; 3369 4009 
3; 3370 4010 
3; 3371 4011 
3 % ret 
3 7 401 

: 74 4014 
33% tot 
OBE 
: rg 1019 
; 3380 4020 


BEEBE EE EEE EE MANNA BDA PNIPAM DP SSE STI UIE BE EE PAE EE 


a 
| 


K 4 
18885-1986 11:50:69 EGAasRTLssReSAScVTOUT-682: 1 


(KERNEL BLOCK CDEC_EXP] = 1)/3*.DIGIT_SEP COSCSW_LENGTH) 


ELSE 

0 
END; ' commas 
STAR_STR_DESC CDSCSA_POINTER] = .STAR_PTR; 
IF_((.FLAGS AND V_COMMA) EQL 0) 
THEN 


“er BEGIN 
There are no commas required. 


IF (,.FLAGS AND V_CURRENCY) NEQ 0 AND 


(.FLAGS AND V-LEADING_ZERO) NEQ 0 
THEN 
BEGIN 
STRSCONCAT (BAS_OUT_STR [0], .CURRENCY 
(IF (.FLAGS AND -V_TRAILING SIGN) NEQ 0 THEN NULL_DESC 
ELSE IF .KERNEL_BCOCK CSIGN) LSS 0 AND (.FLAGS AND V_CR_DR) EQL 0 
THEN MINUS DESC”ELSE NULL_DESC), LEADING_STR_DESC, 
INT_STR_DESC) 
END 
ELSE 
BEGIN 
STRSCONCAT (BAS_OUT_STR (0), 
(IF (.FLAGS AND-V_STAR) NEQ 9 THEN STAR_STR_DESC ELSE NULL_DESC), 
(IF (.FLAGS AND V~STAR) NEQ 0 THEN NULL DEST ELS 
(IF (.FLAGS AND V~LEADING_ZERO) NEQ 0 TREN NULL_DESC ELSE 
BLANKS _STR_DESC))> 
(IF (.PLAGS AND V_CURRENCY) NEQ 0 THEN .CURRENCY ELSE NULL_DESC), 
(IF (.FLAGS AND V-TRAILING_ SIGN) NEQ 0 THEN NULL_D 
ELSE (IF .KERNEL BLOCK CSIGNJ LSS 0 AND (.FLAGS AND V_CR_DR) EQ. 0 
THEN MINUS _DESC ELSE NULL_DESC)) 
(IF (FLAGS AND V_LEADING ZERO) NEQ 6 THEN LEADING_STR_DESC 
ELSE NULL_DESC), INT_STR_BESC) 
END 
END 
ies ELSE 
: This number should have commas in it. Do all of the fancy figuring and looping. 
BEGIN 
FIRST 


GROUP 
Ri TEMP_INT_DESC : BLOCK C8, BYTE); 
i Concatenate the leading zeroes to the integer, if neqessery so commas will 
! be inserted at the proper places. The length and pointer jelds of INT_STR_DESC 
: were not intialized earlier so that we can fill them in here. 


ts IF (.FLAGS AND V_LEADING ZERO) NEQ 0 
THEN 


‘ l 
_BASSCVT_OUT 18-Se -1984 00:10:59 AX=11 Bliss-32 V4.0-74 Page 102 8 
wt 12-8081 884 99:30:25 BASRTL. SRC JBASCVTOUT .B32;1 ’ (335 1 
; ‘8 1 BEGIN 
; 40 g TEMP_INT_DESC DSCSB_CLASS] = DSCS$K_CLASS_ $; 
$ 4024 TEMP_INT_DESC [CDSCS$B_DTYPE] = DSCS$K-DTYPE-T; 
; 4025 TEMP_INT_DESC COSCSW LENGTH] = .KERNEL_BLOCK CDEC_EXP); 
; 40 $ TEMP_INT_DESC CDSCSA_POINTER] = . KERNEL BLOCK be RING .ADORI + 
3 40 «KERNEL_BLOCK COFFSETI; 
; 4028 INT_STR_DESC poscsu. LENGTH] = 0; 
; 49 ; * INT~STR=DESC CDSCSA-POINTER] = 0; 
; i | Adjust leading zeroes length if extra commas will be required. 
; 4 LEADING STR DESC coscsu LENGTH) = .LEADING_STR_DESC CDSC$W_LENGTH) 
; c038 (T.LEADING_STR_ DESC COSC$W_LENGT thine “1)/3 * DIGIT cep” tosCu. LENGTH); 
; 4035 tee® 1-048 LEADING STR bese cpscsa Lengs TH] = LEA BING. STR_DESC CDSC$W_LENGTH) 
; 40 $ lene 1-048- ((. LEADING, STR D ESC COSCS$Q_LENGTH) - 1)/3 * [DIGIT_SEP CDSC$Q_LENGT tH) - 1; 
3 4037 2 CONC CAT (INT STR_DESC, LEADING_STR_DESC; TEMP_INT_DESC); 
: 3399 4039 4 , 
; 4040 7 FIRST GROUP = (((IF (.FLAGS AND V_LEADING ZERO) NEG 0 THEN .LEADING_STR_DESC COSCS$W_LENGTH] 
3 1 4041 4 0) + .KERNEL_BLOCK CDEC_EXP) = 1) MOD 3) + 1; 
3 34 4048 4 STRSCONCAT (BAS out _STR (OJ, 
3 4043 4 (IF (.FLAGS"AND-V_STAR) NEQ 0 THEN STAR_STR_DESC ELSE NULL_DESC), 
3 3404 4044 7 (IF (CFLAGS AND V7STAR) NEQ 0 THEN NULL“DESC ELSE (IF (.FLAGS 
; 4045 4 AND V_LEADING ZERO) NEQ 0 THEN NULL_DESC ELSE BLANKS STR_DESC)) 
3 3008 4046 4 (IF (TFLAGS AND V_CURRENCY) NEQ 0 TREN .CURRENCY ELSE NUCL_DESCS, 
; 4047 5 (IF (FLAGS AND V-TRAILING SIGN) NEQ 0 THEN NULL_DESC ELSE 
: 3408 4048 5 IF .KERNEL BLOCK CSIGN] LSS 0 AND (.FLAGS AND V_CR_DR) EQL 0 
3 3409 4049 4 THEN MINUS DESC ELSE NULL DESC) 
: 3410 4050 5 (INT_STR_DESC COSC$W_LENGTH) = MIN (.FIRST_GROUP 
3 3411 4051 4 “LEADING STR_DESC COSCS$W rhENGTHD . zNOr Dl 17§);_INT_STR 
3218 toss COUNT Eee Oh e  RERWEL BEOCKTEDED CAPS TINT SUR THEN, -{EADING, STR bese’ COSc8W LENGTH | 
wo + XK - 
; a 4038 ‘ INT_STR_DESC CDSCSA_POINTER] = .INT_STR_DESC (~EDSCSA POINTERS” + ,INT_STR_DESC COSC$W_LENGTH); 
; 3416 4056 é WHILE = COUNTER GTR 0 DO 
: Sis 1089 8 STRSCONCAT (BAS OUTTSTR LOI, BAS OUT STR £05, DIGIT.SEP, INT_STR DESC); 
3 3420 4060 5 INT_STR_DESC CDSCSA“POINTERS = .INT_STR_DESC CDSCSA_ PO infers 7 LINT_STR_DESC 
; 3421 4061 5 DSCSW_LENGTH) 
3 3422 4062 5 COUNTER =". COUNTER = .INT_STR_DESC CDSC$W_LENGTH); 
3 3425 40635 4 END; !“WHILE loop ~ 
; 435 toes 
Hse SBee = 
: 3428 4068 3 !+ 
3 ; , rhs 44 1 And now for a common ending for both parts (comma and non-comma). 
3 3431 4071 : STRSCONCAT (Bas OUT_STR COJ, BAS_OUT sik CO], .RADIX_PT, FRAC_STR_DESC, ZERO_STR_DESC, 
: 43e 407 (IF AGS AND V_TRAIL LN NG nt ts NEQ 0) 
: 343 407 THEN. Cif’ ( KERNEL BLOCK SiS LSS "OD 
3 3434 4074 THEN MINU C ECSE BLANK C) ELSE NULL_DESC) 
; 3435 4075 CIF (. LACS. AND V_CR_DR) NEO" THEN (IF .KERNEL_BLOCK CSIGN] LSS 0 
3 3436 407 THEN CR_DESC Use” DR-DESC) ELSE NULL_DESC)); 
: 3437 407 BAS_OUT_STR7LEN C 
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407 
439 2079 
40 rhs 
441 4081 
4G i086 
44 408 
444 4084 
445 4085 
446 4086 
447 4087 
448 4088 
449 4089 
450 4090 
451 4091 
12g 409 
45 409 
454 4094 
455 4095 
$429 4096 
457 4097 
3458 4098 
3459 099 
3460 4100 
3461 4101 
3462 2136 
34635 410 
3464 4104 
3465 4105 
466 4106 
467 4107 
3468 4108 
3469 4109 
3470 4110 
3471 4111 
3472 tig 
3475 411 
474 4114 
475 4115 
476 4116 
477 4117 
478 4118 
479 4119 
480 4120 
“83 “192 
“88 2198 
484 4124 
485 4125 
486 4126 
487 ret 14 
488 4128 
489 rit 34 
490 4130 
491 $13 
49 4] 4 
49 413 
494 4134 
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BEGIN 
IF ((.FLAGS AND V_TRAILING.SIGN) NEQ 0) 
THEN 


1 ! trailing sign 
ELSE 
BEGIN 
Oe ater tte CSIGN] LSS 0 AND (.FLAGS AND V_CR_DR) EQL 0) 
ELSE 0 
END 


END 
+ .NO_INT_DIGITS + .NO_FRAC_DIGITS + 
BEGIN 


a ((,.FLAGS AND V_COMMA) NEQ 0) 


N 
og Oe CDEC_EXP] = 1)/3*.DIGIT_SEP CDSC$W_LENGTH] 


END 
al OER FT COSC$W_LENGTH); ! decimal point 


ELSE 
BEGIN 
'¢ 


This is a purely fractional number which should be put out in F format 


LOCAL 
FRAC_STR_DESC : BLOCK (8, BYTE); ! desc. for fraction 
'¢ 
i This is the number of zeroes to the right of the decimal point and to the left 
z of the first non-zero digit. 
ZERO_STR_DESC CDSC$B oft ASS} = DSC$K_CLASS_S; 
ZERO_STR_DESC CDSCSB_DTYPE) = DSCSK-DTYPE"T; 
ZERO_STR_DESC CDSCS$W LENGTH) = = KERNEL _BCOCK CDEC_EXP); 
= ZERO_STR_DESC CDOSCSA_POINTER) = .ZEROES_PTR; 
z Put at most one zero to the left of the decimal point 
INT_STR_DESC (COSC$B ~fLASS) = DSCSK “CLASS =f 
INT~STR_DESC CDSCS$B_DTYPE] = DSCSK_DTYPE— “1; 
“STR_DESC COSC$WILENGTH] = MIN 
.NO-INT DIGITS = (IF (.FLAGS AND V_TRAILING SIGN) NEQ 0 THEN O 
ELSE (IF KERNEL BLOCK CSIGN] LSS 0 AND (.FCAGS AND V_CR_DR) EQL 0 
THEN 1 ELae 0))); 
INT_STR_DESC CDSC$A POINTER] = .ZEROES PTR 
STAR_STR_DESC (CDSCSB onthe = “DSCSK_CLASS_ é, 
STAR-STR-DESC CDSCS$B-DTYPE] = DSCSK-DTYPE_T; 
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16-Sep-1 10:59 AX-11 Bliss-32 V4.0-74 
ak eats ra ee ret lt Pt ta ee 
OOCA 31 0024 Rw 438 
32 8 AE 3 4D 27S: LBC é (SP), 308 
a 1 BLBC 6(SP), 30$ 
00 8 CE oF 3 PUSHAB ZERO_SfR_DESC 
094 CE OF PUSHAB INT _STR_BESC 
78 «AE OS 30 PUSHAB ABING_STR_DESC 
12 3¢ AE BLBS (SP), ~28$ 
cae ; 64 TSTL (KERNEL _BLOCK) 
op 7 BGEG ©_- 28 
53 E f 9 BBS #14, FLAGS, 28$ 
00000000' cf H gp ROVAB BINUS DESC, R 
50 00000000° FF 9E 00276 38s: MOVAB NULL_DESC, RO 
0 DD 0027) 29$:  PUSHL R 
20 Ar DD 0027F PUSHL CURRENCY 
58 DD 2 PUSHL BAS_OUT_STR 
000000006 00 0298 Fe CALLS #6, STRSCONCAT 
098 CE H 8 30$:  PUSHAB ZERO_STR_DESC 
094 CE 9F 00 PUSHAB INT_STR_DESC 
96 ec AE 9 0296 BLBC © 44 (SP), "318 
0 AE 9 0 9A MOVAB ADING_STR_DESC, RO 
50 00000000" EF 9E 00 i 318: MOVAB NULL_DESC, RO 
0 DD OO2A7 328: PUSHL 
12 3c = AE sC«EB «00249 BLBS 60(SP), 33$ 
0¢ aS DS 002AD TSTL 12(KERNEL_BLOCK) 
0D 18 0 80 BGEO 4 
53 OE ‘ B BBS #14, FLAGS, 338 
50 00000000° F 9 B6 MOVAB MINUS_DESC, RO 
50 00000000' EF 9E O02BF 338: MOVAB WNULL_DESC, RO 
0 DD 00 C6 4$:  PUSHL RO 
05 38 «AE CEO 4 C LBC 56(SP), 35$ 
20 A Dp 9 eC PUSHL URRENCY 
55 00000000' EF 9€ 00201 35$:  MOVAB NULL_DESC, RS 
5 DD 00208 PUSHL R 
1 04 O02DA 36$: CLRL RI 
53 4 €1 002D BBC #4, FLAGS, 37% 
1 D6 002E INCL = R1 
04 11 0028 BRB 388 
99 38 AE £9 O2E4 378 BLBC 6(SP), 39% 
0 00000000° i at Es 8$: ROVAB N L_DésC, RO 
50 00B4 F 9 F1 39%:  MOVAB BLANKS_STR_DESC, RO 
D r6 40$: PUSHL R 
97 1 3 F BLBC. RI, 418 
0 00¢0 E 9 O0¢F MOVAB STAR_STR_DESC. RO 
50 00000000" EF 9€ 41$:  MOVAB NULL_DESC, RO 
dD 42$: PUSHL R 
DD PUSHL BAS_OUT_STR 
000000006 00 Fe CALLS #8, STRSCONCAT 
O17E 3 14 BRW 
47 34 AE €9 00317 438 BLBC (SP) 44$ 
SA AE 010E 8F 680 0031B MOVW #270, fEMP_INT_DESC+2 
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S 
TEMP_INT pes 


58 AE SA 8B MOVW. R10 : 377 

SC OA § AG 06 Ab a ist ADDL 4 (KERNEL BL OCR) {6(KERNEL BLOCK), - ; 37 
9090 CE B84 CLAW INT STR. Bese : 377 i 

094 CE 04 CLR INT“STR-DESC +4 : 377 : 

50 7 i 56 , OV ZuL poms ens: RO ; 3784 

0 3 c6 A DIVL2 #3, RO : ; 

1 é C D MOVZwL (DIGIT_SEP), R1 : i 

0 C4 0034 MULL R1, RO : : 

70 AE 0 A2 0034 SUBW2 RO, LEADING. STR_DESC : ; 

8 AE 3 4 PUSHAB Tee INT_DESC : 3787 : 

4 AE OF OO34A PUSHAB LEADING_STR_DESC : ; 

coooooons gp OMG FE EER ARMS. BY -sth Hes : : 
o8 4 AE A 0 4 LBC 06-36 (SP), 44$ : 3790 : 

0 Y 36 0035 MOV ZL LEADING STR_DESC, RO ; ; 

; D4 00 9 44$:  CLRL RO F ; 

50 A c0 0364 45$:  ADDL2 R10, RO : ; 

43 FFFEFFFFF of 5 1 A 00 14 EMUL #1, RO, #-1, -(SP) ; 3791 é 
5 0 BE ; 7B 90 Q EDIV #3. (SP)+, RO, RO : ; 
b6 037 INCL FIRST_GROUP ; 3 

51 70 AE 3¢ 0377 MOVZWL LEADING STR_DESC, R1 + 3802. ; 

31 52 CO 00378 ADDL2 NO_DIGITS, Ri F | ; 

, oii ge : : 

50 9; DO 00383 MOVL 1, RO ; : 

0090 CE 50 B0 05386 46$: MOV RO, INT_STR_DESC : 3801 ; 

0090 cE OF 99 B PUSHAB Int STR-DESC : : 

12 34 AE Es O38F BLBS (SP), "478 : | F 

dc a D3 0395 Ist i KER EL_BLOCK) ; 3799 ; 

09 53 OE £0 0 38 BBS #14, FLAGS, 47$ : : 
50 00000000" ai F 039 MOVAB MINUS_DESC. RO : F 

50 00000000" EF 9E OOSAS 478:  MOVAB NULL_DESC, RO 

05 30 50 OD bosae “e® Brace (se) on ; 798 | : 

18 AE bp 0 3 PUSHL RRENCY ; 797 | : 

55 00000000" GF 9E 00387 498: — MOVAB NULL_DESC, RS : | i 

; pO Beers sos: erent Re > 3794 ; 

04 53 4 £1 8 C "< #4, FLAGS, 51% : F 
1 06 03C INCL rR} 3 | 

04 C BRB is? ; : 

09 30 AE £9 CA 518: BLBC 48(SP), 53$ : 3795. ; 

0 00000000' Ff oF i 2$: ROVAB L_désc. RO : | 

50 OOAC F 9E 003D 538: MOV BLANKS_STR_DESC, RO ; | F 

DD 0030C 54$: — PUSHL ; ; 

07 1 €9 0 DE BLBC. RI, 55$ : 3794 : 

0 0088 3 ee i MOVAB TAR_STR_DESC, RO ; 3793 

' €F 9 £8 55$:  MOVAB WNULL_DESC, RO : ; 

splieonamene: 55 3 a EF 335 PUSHL RO ™ ; ; 
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AS$CVT_OUT b-5e -1984 00:10:59 AX-11 Bliss-32 V4.0-74 Page 113 
pASeE ~8ep-19 4 90:19:28 BASRTL.SRCIBASCVTOUT .B 2:1 ge 33} 
8 DD PUSHL ®BAS_OUT_STR 3 379 . 
000000006 6 8 CALLS a6 “STRS QNCAT : wee 
34 AE BL Bt 36(SP), 57$ : 3803 
i ae BOY ZL seem ge RO 3 } 
; D4 57s CLRL R : 
0 8$ ADDL2 NO_DIGITS, RO + 3804 
0090 ce : MOV INT STRDESC. COUNTE : 
52 § SUBL3 COUNTER; R COUNTER : } 
0090 MOVZ2WL INT_STR.DESC, R ; 3805 | 
0094 CE c ADDL2 RO, INT-STR_DESC+4 : | 
p 59$ iste COUNTER : 3807. 
50 D0 MOVL «6C UNTER, RO : 3809) 
0 1 CMPL sO, @ : 
5 BLEG )6=s «60 : 
50 DO MOVL #3, RO 3 
0090 CE 0 80 60$: MOVW RO. INT_STR_DESC : | 
0090 CE 9F PUSHAB INT_STR DEST + 3810. 
DD PUSHL DIGIT SEP : | } 
DD PUSHL BAS_OOT_STR : 
DD PUSHL BAS-OUT“STR : } 
000000006 99 04 FB CALLS #4, STRSCONCAT ; 
0 0090 ce 3¢ MOVZWL INT_STR_DESC, : 3811) 
0094 ce 0 ADDL2 RO, INT_STR_DESC+4 3 
5 0090 £ MOVZWL INT_STR7DESC, R : 3813) 
52 C SUBL2 8 UNTER 3 
C7? 11 0045 BRB 59$ : 3807) 
43 00 57 01 7A 61S EMUL #1, R7, #0, -<SP) : 3816) 
5 50 BE 03 7B 0045A EDIV #3. (SP)+, RO, RO ; 
0098 CE 50 80 045F MOV RO ZERO_STR_DESC ; 
OF 13 00464 BEQL 628 ; 3818 
0098 ¢ 9F 00466 PUSHAB ZERO_STR_DESC : 3820) 
DD 0046A PUSHL ®BAS_OuUT_STR 3 | i 
58 DD 0046C PUSHL BAS-OUT “STR 3 
000000006 00 05 FB O46E CALLS #3, STRSCONCAT 3 | 
0098 ~«¢ 0 8b 475 62$: MOVW #3, ZERO STR_DESC ; 3825, 
52 5 03 C7 O047A DIVL3) #3, R7, COUNTER : 38 4 | i 
15 15 0047E 63$: BLEG  64$ > 3826 | 
0098 CE 9F 00480 PUSHAB ZERO_STR_DESC > 3828 | 
6 DD 004 PUSHL DIGIT SEP ; 
DD 004 PUSHL BAS_OOT_STR : 
58 DD 004 PUSHL BAS-OUT~STR : 
000000006 00 94 Fe ABA CALLS #4, STRSCONCAT : 
g p 491 DECL COUNTER : 3829 
—9 11 493 BRB 6 > 3826, 
0098 cf 4 AE B0 495 64$: MOVW ON ERAC_DIGITS, ZERO_STR_DESC : 3838 
1 4 AE €9 00498 BLBC  S2TSP),~66$ > 3844, 
C A D3 OF TSTL  12(KERNEL_BLOCK) ; 3845. 
06 18 004A2 BGEQ : | 
50 68 AE 9 4A4 MOVAB CR_DESC, RO : 
0D 11 004A8 BRB : 
50 60 AE H 4AA 65$:  MOVAB  DR_DESC, RO ; 
0? 11 OO04A BRB 67S ; 
50 00000000° Ef 9E 048 68: MOVAB NULL_DESC, RO > 3844. 
0 Db 487 67$:  PUSHL R ; 
17 34 AE €E9 00489 BLBC 52(SP), 69$ : 


MART ORS s EEO RSIS OP ee 


Kk 5 
ee VenSep-9be $9:5:29 — UGASmtussne SeascvtouT 682;1 Pee (2) 


COODMm USOUoMme 


OC Ab 05 48 TSTL 12<KERNEL_BLOCK) 3 3842 
09 4C BGEO 68S : 
50 00000000' Ff 4C MOVAB MINUS DESC. RO ; 
4C BRB : 
01 70$ 
50 00000000' FF % cB 68$:  MOVAB BLANK DESC, RO : 
7 11 0040 BRB $ : 
50 00000000° EF 9E 00404 69$: MOVAB LL_DESC, RO + 3841 
0 po 408 70$:  PUSHL R : 
00A0 ¢ 4 40D PUSHAB Z RO_STR_DESC ; 859 
07 53 p 3 oie} BBC ‘ , FLAGS, 71$ ; 
18 ar DD 004E9 PUSHL RADIX_PT : 
09 11 O04EC BRB 72$ : 
57 00000000" EF 9E OO4EE 71$: MOVAB NULL_DESC, R? : 
7 OD Oa PUSHL R : 
DD O04F7 72$:  PUSHL BAS_OUT_ + 3839 
58 DD 004F9 PUSHL BAS~OUT~STR : | 
000000006 00 06 F O4FB CALLS #6, STRSCONCAT : 
09 30 AE €8 0050 BLBS 48(SP), + 3848 
0c a, D 0506 Ist 12 (KERNEL BLOCK) + 3849 
05 53 OE 5 508 BBS #14, FLAGS, 74$ : 
50 01 00 0050F 73$ MOVL #1, RO F 
02 11 00512 BRB 75$ ; 
50 D4 00514 74$: CLRL. RO ; 
50 Sa CO 00516 75$:  ADDL2 R10, RO + 3851 
OF 2c AE 9 0519 LBC © 44($P), 76$ 3 385¢ 
55 FF AA 9E 0051D OVAB -1(R105, R5 : 385 
55 03 cé 005 1 IVL2 #3, R5 : 
51 66 3C 00524 MOVZWL (DIGIT_SEP), R1 : 
55 51 C4 00527 MULL2 1, RS F 
02 11 0052A BRB 77$ ; 
55 D4 005 C 76$ CLRL. RS + 3852 
50 55 CO 0052E 77S ADDL2 5, RO ; 
06 52 E9 005 1 BLBC R2, 78$ : 3855 
57 0c BE 3C 00534 MOVZWL @RADIX_PT, R7 : 
08 11 005 8 RB 79$ ; 
D4 0053A 78%:  CLRL. R7 : 
50 57 CO 0053c 79$:  ADDL2 7, RO : 
69 0098 ce40 f O53 NOVAB peta (BAS_OUT_STR_LEN) 385 
0092 CE 020E 8F 80 00548 80S MOVW Of ss INT_STR_DESC#2 : 386 
0D 0 € Oat BLBC RO & : 387 
0090 CE A 60 32 MOVW. R10, INT_STR_DESC : 387 
0094 CE 10 AG 04 Ad C1 0055 ADDL3 4(KERNEL BLOCK), 16(KERNEL_BLOCK), - ; 387 
— 1 F OSSF 81$:  MOvw #270, FRAC_STR_DESC+ : 387 
58 AE ’ 5 me Hf Bt 0565 SUBWS aio NO DIGITS; FRAC_STR_DESC : 387 
iC AE 10 A 04 Ab ci 056A ADDL 4 (KERNEE BLOCK} 16(RERNEL BLOCK), 28(SP) ; 388 
SC AE 1¢ BEGA 0571 MOVAB —a28(SP) R10}, FRAC STR_DEST+4 > 3881 | 
0098 CE 06 «AE 58 AE AS 00577 SUBW: FRAC STR_DESC, NO_FRAC“DIGITS, - ; 3882 | 
O9A CE 010E «BF OB 7F MOVW ip ZERO_STR_DESC#2 : 3884) 
a B88 SSRs AMS MAS aget fanbase ese" 2 
70 AE 010E0000 8F D0 005 MOVL Fi POSk 720° LEADING. STR_DESC : 3891 
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BASSCVT_OUT 16-Sep-1984 0:59 AX-11 Bliss-32 v4.0 Page 11 
1-054 13-808- 1382 90: 42: 249 YBASRTL SRC IBASCVTOUT. 4 2:1 9° (22 
09 3 OE £0 00655 BBS #14, FLAGS, 95$ ; 
35 00000000' FF be sf MOVAB MINUS_DESC. RO ; 
50 00000000° Ft 9E 669 95$: MOV ne DESC, RO ; 
- 50 DD 00669 96$: — PUSHL : 
1c «(AE ODD 0668 PUSHL CURRENCY + 3982 
58 DD 66 PUSHL BAS_OUT_STR : 
000000006 00 05 FB 006 CALLS #5, STRSCONCAT : 
01C1 31 067 BRW 126$ + 3981 
0090 CE 9 0067A 97$: | PUSHAB INT STR 2 sc : 3990. 
06 é AE £9 067 BLBC 40 SP) + 3999. 
50 4 AE F 068 MOVAB LEADING, aR. DESC, RO ; 
07 1 06 BRE é 
50 00000000' EF 9E 068 98$ MOVAB NULL_DESC, RO : 
0 DD 0068F 99$ PUSHL RO F 
12 38 «AE CS 0069 BLBS 56(SP), 100 ; 
0c A4 DS 00695 TSTL  12(KERNEL_BLOCK) : 3997 
0D 18 00698 BGEQ  100$ : | 
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2 D5 00802 126$:  TSTL NTER : 4056. 
3 3 ti BLEG 9 g : 
50 F200 00 06 MOVL UNTER, RO + 4058 
0 “0 01 0 0 CMPL  =soaRO, : 
I3 0c BLEG 127% : 
50 D O80E MOVL #3, RO : 
0090 «CE 0 2 0811 1278: MOVW RO, INT_STR_DESC : 
0090 CE 9F 00816 PUSHAB INT_STR DEST : 4059 
DD OO81A PUSHL DIGIT SEP : | 
DD 0081C PUSHL BAS_OOT_STR : 
58 0D 0081 PUSHL BAS-OUTSTR : 
000000006 0 04 FB 08 CALLS #4, STRSCONCAT ; 
0090 cE 3c 00 MOVZ2WL INT_STR_DESC, + 4060. 
0094 ce 5 gO 082C ADDL2 RO, INT~STR_DESC +4 : | 
0090 cE C 00831 MOVZ2WL INT_STRDESC, ; 4062 | 
52 ce 00836 SUBL2. RO, COUNTER : 
C7 11 00839 BRB leds + 4056. 
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D4 008C1 138%: CLRL R > 4096 
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ERNEL_BLOCK) 
4, FLAGS, 173$ 
MINUS_DESC, RO 


174$ 
NULL_DESC, RO 
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76(SP), 175$ 
YT ead 
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NULL_DESC, RS 
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R1 
a4, FLAGS, 177$ 
178$ 
76(SP) 1798, 
NULL DESC, 
é ANKS_STR_DESC, RO 
R1, 181$ 
STAR_STR_DESC. RO 
NULL. DESC, RO 
a) STRECONCAT 

CRERNEL eaLock) 
#14, FLAGS, 185$ 
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20 15 00B4 LEQ 189$ : 

| 0088 9F 00B4 USHAB ZEROES DESC + 4246 

000000006 00 6 FB 00848 CALLS @ STRSEREET_Dx ; 

0080 cf 9F 00B4 PUSHAB B Anks DESC + 4247 

000000006 00 FB O00B CALLS #1, STRSFREE1_Dx : 

| 78 «AE OF O0B5A PUSHAB STAR DESC ; 4248 
000000006 90 0 4 B5D CALLS " STRSFREE1_DXx : 

| E 9080 —E 9E 00B64 189%: MOVAB 178(SP) + 4251 

CAG OF BA B69 POPR #°M<R2,R5,R7,R10,R11> : 
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FUNCTIONAL DESCRIPTION: 


Do the formatting for Ba 


i FORMAL PARAMETERS: 


NO_INT_DIGITS.rlu.r 
NO” =fRAT DIG DIGITS. rtu.r 


PT.rt.dx 
BAS Sor _STR_LEN.wlu.v 


S_OUT_STR.wt.dx 
DATK. TYPE .rlu.v 


' IMPLICIT INPUTS: 


i IMPLICIT OUTPUTS: 


NONE 


i COMPLETION CODES: 


i SIDE EFFECTS: 


NONE 


BEGIN 


LOCA 
BLANK STR DESC BLOCK [ 
INT_STR_DESC : BLOCK (8, 


ae Rab myclt BL iat 32 v4 


sic Print Using E format for h floating. 


number of integer etgits in output string 
number of fraction d gits = output string 
number of hdd phe Mh. digit 

no be are appt ic 

parameter block for + Re routine 
currency symbol - currently unused 

di it oe group separator - currently unused 
radix 

Length "et qutput string (handy for fixed length 
output str 

the output string 

data type of the element to format 


8, BYTE), ! Leading blanks for zero 
BYTE), i integer portion of number 


our 64251 


w 2 
CvT_OuT 16-Sep-19 AX-11 Bliss-32 V4.0 Pp 4 

cr 14-Sep 71982 9: 49:2 BASRTL.SRC JBASCVTOUT. % 2:1 age 3¢ 
r 4 ERO_S DESC BLOCK f8. BYTE). ' trailing eroes 

3 43) RAC_STR_DES 7 BYTE), i fractional portion of number 

; 43) EXP st : vector (5, pyre. i string for exponent 

3 4 19 mpeg : BLOCK (8, pytel i Exp ponent 

: 431 EEABING? STR_DESC : BLOCK (8, BYTE); i leading zeroes 

t318 map 

: 4 1g RADIX.PT : REE BLOCK 4 eye), 

: 431 BAS_OOT_STR LEN : REF VECT 

; 4 18 BAS OUT“STR™: REF VECTOR te. NGI, 

3 ‘ 1% KERNEL BLOCK : REF BLOCK (kK "KERNEL “BLK_SZ, BYTE; 

; 4321 BIND 

; ‘ ‘ ZERO = UPLIT (BYTE ('0")); 

; 4304 INITIALIZE_DESC; 

; 4 $ IF CHSEQL (1, (.KERNEL_BLOCK CSTRING_ADDR] + .KERNEL_BLOCK COFFSETJ), 1, ZERO) 
; 4 

; & § "set for zero. A few parameters need to be tweaked and then the general al- 

3 ? i joorte should work fine. 

: 4 é BEGIN 

: 4 BLANK STR_DESC CDSCSW LENGTH] = MAX (.NO_INT_DIGITS = 1, 0); 

; 4334 ZERO_STR_BESC COSCS$ uCENGI = 0; 

3 4335 SELECTONE .DATA_TYP 

3 4 SET 

; 4 CDSCSK_DTYPE_G): 

: 4338 4 BEGIN 

; 4339 4 EXP_STR <= RASCIL: +000 

; ‘ 40 Eno; STR_DESC COSCSA_ pointer? = EXP_STR; 

; 37 34 CDSC$K_DTYPE_H): 

3 17 4 5 4 BEGIN 

: 3705 4344 4 EXP TStr = UPLIT BYTE (ZASCI1* +0000") 
3 4) ; °F 4 EXP. STR_DESC CDOSCSA_POINTER] = .EXP_ étr: ' extra level of indirection here 
; 708 ‘ re 3 rome 

: 3710 4 rk: 4 EXP = EASCI 11°+00'; 

> 3711 4350 4 EXP sth _DESC COSCSA_POINTER] = EXP_STR; 

: gig 1383 ns, 

: 3714 4 ¢ IF (.FLAGS AND V_LEADING ZERO) NEQ 

: ag 4 34 THEN LEADING_ ere “DESC COSCS$W_LENGTH) = .NO_INT_DIGITS; 

/ See 

; ne 4 38 LEADING. STR DESC CDSC$W_LENGTH) = 0; 

; 720 435 LANK STR_DESC COSC$W_LENGTH) = 0; 

> 3721 4360 2ERO_STR DESC COSC$W_CENGTH) = MAX (.NO_INT_DIGITS = .NO_DIGITS - 

: 4 g 4 1 4 BEGI 

: , 4 4 8 4 IF (.KERNEL_BLOCK CSIGN) LSS 0) THEN 1 ELSE 0 

: 3726 4365 4 END 


c-—-- — - —_ — 
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: 3727 4 , 0); 

: 37 8 4 ; KERNEL BLOCK CDEC_EXP] = .KERNEL_BLOCK CDEC_EXP] - .NO_INT_DIGITS + 
3 f 2 2 BEGIN 

: g 4 4 IF (.KERNEL_BLOCK [SIGN] LSS 0) THEN 1 ELSE 0 

3; 37 4 END; Add 1 for minus si gn 

: 37 4 CVTLP_ (KERNEL BLOCK CDEC_EXP], EREF (6), * KERNEL BLOCK CDEC_EXPJ); 

; 3735 4 SELECTONE .DATA_TYPE OF 

: 37 4 SET 

: 37 4 CDSC$K_DTYPE_G): 

: 37 4 4 BEGIN 

: 37 4 4 CVIPS (ZREF (6) KERNEL _BL LOCK CDEC_EXP], SREF (3), EXP_STR); 
: 3740 4 4 EXP_STR_DESC CDSCSA_PO TATERD = EXPSTR; 

3; 3741 4 ; 

; r é ; CDSC$K bre _H): 

> 3744 4 4 CvIPS (ZREF (6) KERNEL_BLOCK CDE EC ex xP), ZREF (4), EXP_STR); 
; 3745 4 4 EXP_STR_DESC COSCS$A_POI itd R}] = EXPTSTR; 

5 ee 4385 ; ; 

; yer 4 86 ; COTHERWI SEI: 

: 3749 4388 4 te (ZREF (6) KERNEL BLOCK CDEC ~£xP), WREF (2), EXP_STR); 
: 730 4 89 4 XP_STR_DESC COSCSA_POINTER) = EXP™STR 

: 73¢ 4391 TES; 

; 37 4 3 END; 

3 3754 439 

: 3755 4394 LEADING_STR_DESC DSC$B_CLass] = DSCSK_CLASS_S: 

: 375 4395 LEADING-STR-DESC CDOSCS$B_DTYPE) = DSCSK-DTYPE-T; 

: 375 4 36 LEADING-STR-DESC CDOSCSA~POINTER] = ZEROES; 

: 3758 439 BL -$TR R_DESC ps¢$B CLASS] = DSCSK_CLASS_S; 

: 3759 4398 BL agi “DESC CDSCSBDTYPE] = DSCSK~DTYPE_T; 

: 3760 4399 BL DESC CDSCSA~POINTER] = BLANKS: 

: 3761 4400 EXP_ STR. “DESt psc$B CLASS] = DSCS$K_CLASS_S; 

: 376 4401 EXP-STR-DESC CDSCSB-DTYPE] = DSCSK-DTYPE_T: 

: 376 440 SELECTONE .DATA_TYPE OF 

: 3764 440 SET 

: 3765 44 CDSCSK_DTYPE_G): 

: 766 4405 EXP STR Dest CDSC$W_LENGTH) = 4; 

: 376 440 Cosc$k_BTyYPE 

: 3768 440 EXP_STR_DESC CDSCSW_LENGTH) = 5; 

: 3769 440 COTHERWISEJ: 

: 37 440 EXP_ fi! _DESC CDSCSW_LENGTH) = 3; 

: 377 4410 TES; 

: 377 4411 INT_STR_DESC CDSCS$B_ CLASS = DSCSK_CLASS_ $: 

: 377 4aig INT“STRIDESC CDSCSB-DTYPE) = DSC$K~DTYPE-T 

: 377% 441 INT“STR-DESC CDSCSWILENGTH) = MIN ? NO_ IAT’ “DIGITS - 

im i ate 

: 377 4416 IF (.KERNEL_BLOCK CSIGN] LSS 0) THEN 1 ELSE 0 

3; 377 441 

: gt tt19 NO DIGITS) 

; re 4420 int_STR_DESC CDSCSA_POINTER] = .KERNEL_BLOCK CSTRING_ADDR] * .KERNEL_BLOCK COFFSET) 
: 378 4421 ZERO_STR_DESC DSC$B_CLASS] = DSCSK_CLASS_S; 

: 378 4422 ZERO“STR=DESC CDSCSB~DTYPE] = DSCSK-DTYPE-T: 


ss 
pASSCVT oUt tb-Sen~1964 00:10:58 YAK=I1 OLisa=32 vu-0-743. 


; 37 4423 ERO_STR DESC CDSCSA_POINTER] = ZEROES; 
; f 5 4 : af TRSCONCAT: BAS_OUT_STR R LON. BAS_OuT_SfR (03, 
: 37 44 
3 g 44 IF (.KERNEL_BLOCK CSIGN] LSS 0) THEN MINUS_DESC ELSE NULL_DESC 
; 44 END 
: 1 4430 (IF (FLAGS AND V_LEADING_ZERO) NEQ 0 THEN LEADING. STR_DESC ELSE 
; 19¢ 4431 BLANK_STR_DESC), INT_STR_DESC, ZERO_STR_DES 
: 379 44 é FRAC STRDESC COSCSB-CLASS] = DSCSK-CLASS_S; 
: 3794 44 FRAC-STR-DESC CDSCSB-DTYPE) = DSCSK-DTYPE- 
: 3795 44 FRAC~STR-DESC CDSCSW-LENGTH] = MAX T.NO “bIGiTs - .NO_INT_DIGITS + 
3 196 4435 BEGIN 
3; 379 44 
: 3798 44 IF (.KERNEL_BLOCK CSIGN] LSS 0) THEN 1 ELSE 0 
S300 tc38 END 
: 3801 4440 0); 
: 80¢ 4441 FRAC STR_DESC CDSCSA_POINTER] = gKERNEL BLOCK CSTRING_ADDR] + ! 
; 644 -KERREL_BLOCK COFFSET) + ut _STR best orate LENGTH: 
: 444 RO_STR_DESC COSC$W_LENGTH] = MAR (.NO_FRAC_BDIGITS = .FRAC_STR_DESC CDSC$W_LENGTHI, 0); 
; 805 444 STRSCONCAT (BAS_OUT_STR (0) ate out TStR (03; 
3 BOF 444 
: 808 46 IF ((.FLAGS AKO V_PERIOD) NEQ 0) THEN .RADIX_PT ELSE NULL_DESC 
: 3810 444 END 
: 3811 4450 , FRAC_STR_DESC, ZERO RO_ STR DESC, E_DESC, EXP_STR_DESC); 
: ig 4491 BAS OUT. STR_LEN C O"INT_OIGITS + .NO_FRAC-DIGITS + 
3 14 1288 
: 15 4454 IF (.FLAGS AND V_PERIOD) THEN .RADIX_PT CDSC$W_LENGTH] ELSE 0 
: 13 445 END 
; 3818 445 + (SELECTONE .DATA_TYPE OF 
: 3819 4458 SET 
; 9 449 COSC$K_DTYPE_G): 
: g 4461 COSC$K_DTYPE_H): 
3 446 6; 
: 4 446 COTHERWISE): 
3 5 4464 4; 
: $ 4465 TES); ! add for exp Length 
: 4466 END; i Routine FANCY_E_FORM_11 
30 01004 P.ABP: . ASCII \O\ 
1005 *BLKB 3 
2 01008 P.aABQ: ASCII \.\ 
1009 BLKB 3 

A O1D0C P.ABR: ASCII \#\ 

A 01D0D SASCIT = \#\ 

A 1D0E “ASCII \#\ 

A 01D0F SASCIT \e\ 

A 01010 TASCIT \#\ 

A 01011 “ASCII \#\ 
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00000000° 
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16-Sep-1984 00:10:59 AX=11 Bliss-32 V4.0-74 
132860- 138 99:10:28 BASRTL SREIBASCV TOUT .B92:1 
0 01D8¢ ASCII \O\ 
0 0108p “ASCII \o\ 
B O1DB8E P.ABX: ‘ASCII \+0000\ 
ZERO= P.ABP 
DOT= P.ABQ 
STAR= P.ABR 
MINUS= P.ABS 
BLANK= PL ABT 
E= P. ABU 
BLANKS= P. ABV 
ZEROES= P. ABW 
BB 00000 FANCY_E_FORM_11: 
PUSHR #*M<R2,R3,R4,R5,R7,R11> 
9E 00004 MOVAB -64(SP5, SP 
DD 00008 PUSHL 
DO O000A MOVL R3, FLAGS 
D0 S000E MOVL R2, NO_DIGITS 
DD 0001 PUSHL 
DO 00014 MOVL RO, R11 
DS 00017 TSTL «6 E_ 
12 0001D BNEQ ~=s«o1S 
9E O001F MOVAB MINUS, M_D 
9E 000¢8 MOVAB DOT, 0_D 
9E 00031 MOVAB BLANK, ~B_D 
9E 0003A MOV E, ED 
C1 00043 1$: ADDL3 4(KERNEL_BLOCK), 16(KERNEL_BLOCK), RO 
91 00049 CMPB. = (RO), ZERO 
12 0004E BNEQ 
9 00050 MOVAB =-1(R11), RO 
18 00054 BGEQ © 2$ 
D4 00056 CLRL = RO 
BO 00058 2$: MOVW RO, BLANK STR_DESC 
B4 0005C CLRW  ZERO_STR_ DESC 
D1 O005SF CMPL ATA_TYPE, #27 
if 00062 BNEQ 
DO 00064 MOVL § 4808464427, EXP_STR 
11 9006¢ BRB 
D1 OO06E 3$: CMPL  DATA_TYPE, #28 
12 00071 BNEG 4$ 
9E 00073 MOVAB P.ABX, EXP_STR 
d0 90078 MOVL § EXP_STR, ERP_STR_DESC+4 
11 00070 BRB 6$ 
D0 9007 4$: MOVL #3158059, EXP_STR 
9€ 00087 5$: MOVAB EXP_STR, EXP_STR_DESC+4 
E1 O008C 6$: BBC #137 FLAGS 
80 0091 MOVW NO_INT_DIGITS, LEADING_STR_DESC 
1 00095 BRB 16$ 
B4 00097 7S: CLRW = LEADING_STR_ DESC 
B4 OOO9A CLRW_ BLANK _STR_DESC 
C3 0 9D SUBL3 NO_DIGITS; NO_INT_DIGITS, RO 
D4 he CLRL OR 
D5 OOA TSTL 12(KERNEL_BLOCK) 
18 OO0A7 BGEQ «= 8S 
D6 000A9 INCL = RR 
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16=Se “1984 00:10:59 vax-11 BL iss-32 V4.0-74 Page 131 
12-8ep-1986 11:54:49  ECBASRTL.SRCIBASCVTOUT .B2:1 (23) 
3¢ AE OOF 0175 PUSHAB INT_STR_DESC ; 
06 10 aE 0D fl 17 BBC #137 FLAGS, 23$ + 4430 
5 18 AE 43 a HOVAB LEADING_STR_DESC, RO : 
50 48 AE 9E 001 : 33s MOV BLANK_STR_DESC, RO : 
9 50 9 5} 9 = BLBC’ a 25$ : 
93 00006000" FF oe 018¢ MOVAB MINUS _DESC, RO + 4427 
50 00000000° EF 9E 00195 358: MOVAB NULL_DESC, RO : | 
8 BD $196 ont PUSHE BAS OUT_STR + 4426 
28 DD STAD PUSHL BAS _OUT-STR : 
000000006 00 06 FB OO1A2 CALLS #6, STRSCONCAT : 
2A OE 010E 8F 80 0019 MOVW #270, FRAC_STR_DESC+2 t 4433. 
52 OC AE 28 C3 OO1AF SUBL3 NO_INT DIGITS, NO_DIGITS, R2 + 4434 
05 53 (£9 00184 BLBC = R3.._ 278 + 4437 
50 01 00 00187 MOVL #1. RO : 
96 ha boise 7$ ereL 28 : | 
52 50 CO OO1BE 28$:  ADDL2 RO, R2 + 4435. 
OF Ok ogres perc ot co 
28 AE 52 BO 001C5 29$:  MOVW R2, FRAC_STR_DESC ; | 
50 38 «AE 3¢ 001C9 MOVZWL INT_STR_BESC; RO + 4442 
AE 54 50 cl 001CD ADDL3 RO,"R4, FRAC STR_DESC+4 : 
51 28 «AE ¢ 00102 MOVZWL FRAC_STR_DESC, RT + 4443 
51 6E 51 C3 00106 SUBL3 1, NO_FRAC_DIGITS, R1 : 
Oy ie apes ease et 2 
30 AE 51 BO OO1DE 30$: #MOVW 1, ZERO_STR_DESC : 
00000000" EF oF bOTES puss Bl egrn event = 
OM SAE USAR JEND- arn bt | 
05 18 AE 06 £1 OO1F1 BC #6, FLAGS, 31$ + 4447 
95 3f Sores Bras fog 
57 00000000' EF 9 OO1FB 318: NOVAB NULL_DESC, R7 : 
58 DD 00204 32$:  PUSHL BAS_OUT_STR > 4444 
58 DD 00206 PUSHL BAS-OUT™STR F 
000000006 00 07 FB 00208 CALLS #7, STRSCONCAT : 
0 58 6 ci 00208 ADDL’ NQ_FRAC_DIGITS, NO_INT_DIGITS, RO ; 4451 
51 50 57 ¢1 00215 ADDL3 R7, RO, R1 + 4451 
18 3A D} 0019 CMPL DATATYPE. #27 : 4459 
50 05 06 09 If MOVL #5, RO : 
1C 90 D1 00223 33$:  CMPL DATATYPE, #28 + 4461 
05 if 0226 BNEO 4$ : 
. cc: i | 
50 04 00 0 D 348 MOVL. #4, RO + 4463 
69 51 0¢ 0 35$ ADDL3 RO R1, (BAS_OUT_STR_LEN) : 4457 | 
5E 48 AE SE 00234 MOVAB 72(SP); SP > 4466 


faba he Se ee ee at 
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O8BC 8F BA 00238 POPR #*M<R2,R3,R4,R5,R7,R11> 3 
05 0023¢ RSB 3 
; Routine Size: 573 bytes, Routine Base: _BASSCODE + 1093 


ww 


WANN NWN 
2.00 09 G2 09.09 0 
ARUN OOD 


PRE RRR 


WONOULSWN OOO 


WANNA WAWANWNAWw 
REA OS MAMMA RE pete 
WFWnN—o MEW OO ONO 


Sese 


02 G0 Oo Cn 09 0d CD OD OD OD: 
SoS 60 SINS IN I OOO 


3 


AAAI AAAI AI AIAN AAI AAAI AIA AIA AIA AINI 


o@ 
oo 
w 


d 7 
6-Sep-1984 00:10:59 AX-11 Bliss-32 V4.0- 
4 ety 7 90:30:28 | 

' 

' 

' 

' 

' 

' 

! 


BASRTL.SRCJBASCVTOUT 


pu old E formatting where the value returned is in the range from 
) 


Returns STRS$_TRU 
SIDE EFFECTS: 
NONE 


number of significant digits in value 


for kernel conversion routine 
ength of output string (handy for fixed Length 


data type of the element to format 


4467 ROUTINE PLAIN_E_FORM_11 ( 
4468 NO_DIGITS, 
4469 FLAGS, 
4470 KERNEL BLOCK, 
4471 BAS_OUT_STR, 
447 BAS-OUT-STR_LEN, 
447 DATA_TYP 
4474 ) : JSB_FORMAT_A6 = 
4475 
4476 !e¢ 
4477 ! FUNCTIONAL DESCRIPTION: 
4478 : 
4479 ! 
4480 : ‘ 
4481 ‘ 
re FORMAL PARAMETERS: 
4484 ! NO_DIGITS.rlu.v 
4485 § FLAGS.rlu.v no flags are opp icapte 
4486 ! KERNEL_BLOCK.mz.r perene er bloc 
4487 ' BAS_OUT_STR_LEN.wlu.v 
4488 ; Output strings. 
4489 $ BAS_OUT_STR.wt.dx the output strin 
4490 ! DATA_TYPE.rl.v 
4491 ‘ 
449 ! IMPLICIT INPUTS: 
449 ‘ 
4494 ! NONE 
4495 ! 
4496 ! IMPLICIT OUTPUTS: 
4497 ! 
ees NONE 
4500 COMPLETION CODES: 
i 
i 
i 
i 
i 
i 
i 


= 
] 
PIP III INININININININ IAI kd dd 


BEGIN 


BAS_OUT_STR_LEN : REF VECTOR 
BAS-OUT~STR™: REF VECTOR f 
KERREL_BLOCK : REF BLOCK 


CAL 
EXP STR : VECTOR C5, BYTE]. 
EMPOSTR DESC |: BLOCK [B, BYTE i 
FRAC STR_DESC : BLOCK C8, BYTES, 


EXTERNAL 


OR, 
2, LONG), 
K_KERNEL_BLK_SZ, 


BYTE); 


string for exponent 


! Exponent 


Fraction 
Status returned 


74 
-B52;1 


Page 133 
(24) 


[ 
egee_on Rete 


0: 
14-Sep-1 4 


59 VAX=11 BL iss-32 v4.0-74 Page 134 
29—Ct«dE ¢ "B92: _ 


1 
5 BASRTL.SRC JBASCVTOUT (24) 


OTSS$A_CUR_LUB; 

GLOBAL REGISTER 

CB = K_CCB_REG : REF BLOCK C, BYTE); 

INITIALIZE_DESC; 

'¢ 

! NOTE: E page ig varies Cogent ine on whether we are in ANSI mode or 

: not. the flag indicating this should be set by the caller; in 

; ANSI mode, the significand is between 1 and 10 whereas in normal 
: mode it is between 0 and 1. In ANSI mode therefore, the output 


; from the OTS conversion routines must be adjusted somewhat. 
"CCB = .OTS$S$A_CUR_LUB; 
EXP_STR_DESC peree-CL Ass) = DSCSK_ 
EXP STR DESC LDSCSB_DTYPE] = DSC$K_ 
SELECTONE .DATA_TYPE OF 


CDSCSK_DTYPE_G): 
XP_STR_BESC CDSC$W_LENGTH) = 4; 


toscéx BTyPE_H): 


WN ("SO OCONAUNE WN 0 OONG NEW OOONOUS 


3 3309 454 EXP STR_BESC COSC$W_LENGTH) = 5; 

: 3910 454 COTHERWYSE): 

: 331 $3 v2 EXP_STR_DESC CDSCS$W_LENGTH) = 3; 

3 318 455 EXP_STR_DESC CDSCSA_POINTER] = EXP_STR; 

3 Sore 455 FRAT_STR_DESC pDSC$B_CLASS = DSCSK_CLASS_S; 

3; 3915 455 FRAC STR_DESC CDOSCS$B_DTYPE) = DSCSK_DTYPE_T; 

3; 3916 4554 IF .BATA_TYPE NEQ DSCSK_DTYPE_H 

: at 4555 THEN 

3 sors $328 FRAC_STR_DESC CDSC$W_LENGTH] = .NO_DIGITS 

3; 3920 4558 FRAC_STR DESC CDOSC$W_LENGTH] = MIN(.NO_DIGITS, 5); 

; 395. cizh FRAC_STR_DESC COSCSA_POINTER] = «KERNEL _BLOCK CSTRING. ADDR] + .KERNEL_BLOCK COFFSET); 
3 3395 4561 te . 2 

3 95¢ £286 kludge for ANSI. decrement exponent. significand is adjusted below. 
3; 3926 4564 IF .CCB NEQ 0 

3; 3927 4565 THEN 

3; 3928 4566 IF .CCB CLUBSV pai? EQL 1 

: , , $282 THEN KERNEL_BLOCK CDEC_EXP] = .KERNEL_BLOCK CDEC_EXP] = 1; 

: 3931 ty i CVTLP_ (KERNEL BLOCK CDEC_EXP], ZREF (6), KERNEL_BLOCK CDEC_EXP)); 

: O38 4570 SELECTONE .DATA_TYPE OF 

3; 393 4571 SET 

3; 3934 457 COSCSK pres G): 

3 3935 4573 CVTPS (REF (6), KERNEL_BLOCK CDEC_EXP], XREF (3), EXP_STR); 
; 936 “ate COSCSK pee HJ: 

3; 393 4575 CVTPS (ZREF (6), KERNEL_BLOCK COEC_EXP], ZREF (4), EXP_STR); 
; 3938 $278 COTHERWISE): 

3; 3939 457 CVTPS (ZREF (6), KERNEL_BLOCK CDEC_EXP], REF (2), EXP_STR); 
3; 3940 $278 : 

3; 3941 457 

3 35962 4580 IF ( IF .CCB NEQ 0 THEN .CCB CLUBSV_ANSI) EQL 1 


| 

| F 7? 

BASSCVT_OUT 1$-Sep-1984 00:10:59 YAN-I1 BLisg-32 V4.0-74 Page 135 
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: 3943 4581 ELSE 0 ) 
3: 3944 4 ¢ THEN 
3; 3945 4 BEGIN 
s 4 4584 } 
3; 394 $283 : ANSI. concatenate: blank !i integer ‘i decimal pt. {! fraction !! — !! exponent 
; 3948 45 § : sign 
; 3949 458 ‘ 
; 3950 4588 1 this is kludged together by taking the most sigificant digit of the 
; 3951 4589 1 fraction and making it the integer digit of the significand, and 
: 926 4590 : by decrementing the value of the exponent. 
; 395 4591 !- 
3; 3954 1236 
}3 3955 459 Hed 
3 328 te3e set up a local to be the integer portion of the significand 
; 3958 4596 LOCAL _TEMP_DESC: guoce (8,BYTE); 
; 3959 4597 TEMP_DESC CDSCSA_POINTER] = .FRAC_STR_DESC CDSCSA_POINTER): 
3; 3960 4598 TEMP_DESC CDSCSB_CLASS) = DSC$K_CCASS—S; 
; 3961 4599 TEMP_DESC EDSC$B-DTYPE] = DSCSK-DTYPE_T: 
; +4 4600 TEMP_DESC LDSCSW_LENGTH) = 1; 
; 396 4601 
; 3964 460 is 
3 MH ree adjust the fractional portion (significand). 
; 3967 4605 FRAC_STR_DESC [DSCS$A_POINTER] = .FRAC_STR_DESC CDSC$A_POINTER) + 1; 
; 44 $60 FRAC_STR_DESC CDSCSWLLENGTH] = .FRAC_STR_BESC COSCS$w_CENGTH) = 1; 
; 3970 4608 '¢ 
3; 3971 4609 ! adjust the exponent (done above) 
3 4 4610 !- 
3; 397 4611 
3 3974 461 '¢ 
; he re dF assemble the number by calling STRSCONCAT 
Z 379 4615 STATUS = STRSCONCAT (BAS_OUT_STR (0), 
; 3978 4616 4 
3; 3979 4617 5§ IF (.KERNEL_BLOCK CSIGN) LSS 0) 
: 3980 4618 4 
; 3981 4619 4 MINUS_DESC 
: 398 1651 e 
; ta re § ? IF (.FLAGS AND V_STRIP_SPACES) THEN NULL_DESC ELSE BLANK_DESC 
8 Be8 4624 & END 
; 398 4625 3 -TEMP DESC, DOT_DESC, FRAC_STR_DESC, E_DESC, EXP_STR_DESC, 
: 3989 4657 es 
: 3 4639 2 IF (.FLAGS AND V_STRIP_SPACES) THEN NULL_DESC ELSE BLANK _DESC 
3; 399 4630 4 END 
; 399 4631 FE 
3 3994 46 ; 
3; 3995 46 END 
: pee 4634 ELSE 
3; 399 4635 BEGIN 
3; 3998 $036 '¢ F ' 
3; 3999 46 ! mot ANSI. concatenate: blank ‘i decimal pt. ‘|! fraction !! E !! exponent 


| ? 
vT_outT 18. ep-1 10:5 AX-11 Bliss-32 v4.0-74 Pp 
eas VenSeb-198e fiisesed — Faasnte’seeseascy tout -6%2;1 age 5 
:{ 83 : stn 
34 j 464 STATUS = STRSCONCAT (BAS_OUT_STR [0], 
i. ie) wpe 
3 4 5 4643 ; IF (KERNEL BLOCK (SIGN) LSS 0) 
3 4 4645 4 EL ser iNUSadESC 
3 6 te23 4 
3 4 10 4668 4 IF (.FLAGS AND V_STRIP_SPACES) THEN NULL_DESC ELSE BLANK_DESC 
3 401 6650 END 
3 4 18 4651 ; : DOT DESC. FRAC_STR_DESC, E_DESC, EXP_STR_DESC, 
: 6015 te88 4 
: 4 ig 46654 4 IF (.FLAGS AND V_STRIP_SPACES) THEN NULL_DESC ELSE BLANK_DESC 
+ i eo 
ml lk 
; 40 1 rhe ’ 
4058 tee stern et eN C02 
: 40 4 466 
3 40 : 4663 r IF {FLAGS ANS V_STRIP_SPACES) 
: 40 4665 
: 4028 4666 If (.KERNEL_BLOCK [SIGN] LSS 0) THEN 1 ELSE 0 
3; 4029 466 
: 40 4668 ELSE 
: 38 ; rr Q . 
: 40 467 END 
: 40 467 + (IF ,DATA_TYPE EQL DSCSK_DTYPE_H THEN MIN (.NO_DIGITS.5) ELSE .NO_DIGITS) 
> 4035 467 + (SELECTONE .DATA_TYPE OF 
: 40 4674 SET 
: 40 4675 CDSC$K_DTYPE_G): 
; t 3 te) CDSCSK_DTYPE_H) 
+ 4040 467 7:7 fs 
: 4041 4679 COTHERWISE): 
: toc$ 4681 TES); . ! add exponent Length 
: 4064 46 é RETURN .STATUS; 
3 4045 468 END; ! Routine PLAIN_E_FORM_11 


2E Q1FDO P.ABY: .ASCII \.\ : 
1FD1 -BLKB 5 
A Q1FD4 P.ABZ: .ASCII \#\ ; 
A Q1FDS eASCIT \e\ : 
“ \F06 eASCIT = \#\ ; 
A Q1FD eASCIT \#\ : 
A ib eASCIT \e\ : 
A O1FD eASCIT \#\ : 


Se 


‘ ee 


SRESBASCVTOUT 88251 
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BASRTL. 


t 


rt) 


$19: 


7 


35-1386 1 


if: 


PAA APP EPPA PEEP EPP EEE PEPE EPP EEE ELE @ BP BP B BPP ALPE EAE EAE AEE LAF 
ee eeeeeeee eee eee e ee ee eee en een een neneea q sey 
PAPA APP PP OPP OP OP OP OPP PP PP EP EPP PE PPL LE POPU CON AONE PPP PP PPP PPP EPA EL 


OS OS Od OG Og Od OG Od OG Od ad Ba Od Od OG OG Od Oa Oa Da Om Od me Ome Od Oe Oe Oe Og Og — et oe Fd Og Od Og Od Od OG EG Oey OG Oe SG Bnd Sd OE Oey Ong 


a ae ae ae ne ag ae Og ag ng ng ag ng ng nd ng ny ng Og Bg Og Hg ag ag ag mg ng Omg Og mg CT) mg (I) ae LI) ae Ll) a ae an a ag ag ne ne ay at as ag Oy ad Sg Og Og 
eddie ded hh hh En a Rd Bnd 
MAMNMNMNAMNAMAMNMNAMNAAMAMANAMNAMWMHNMNMWNNAVWMWVHVWMNNMVNMMWMMNYOH BH BMH IM WINMWMMWMHVWWHWHMMNMNNNNYNNYM 
i i Ta Si in So a So Se Se Se Se Sn Sn Sen Se ie Sen ne Se Se Soe Sn Se Sone Sn ne Ss he Ss ne 4” ae” a SS” ae Se Soe Se Soe Soe Soe oe Soe oe Soe oe Soe oe Soe Se Soe 

» = *-e © 8 @ esweeerree eee e# # © © &© @ 


<« @v oo 

ew ww ww 

<= « « <« 

oO oO eo . 

aaa & 
2000 6 OWWWWWWUI Wa eee ee tt OOOO OCOOCOCOO SSHrroaaooss 
Re Re ee he Re Oe Re Re Re ee Oe Ae he a he he Re he ee a ee he et dt te te tt OOOO OOOOOO OOCOCOoCoooo 


el i seal cel cel ee cel cee ell cel eel eel cee cee cel, cel cl ce nell coe ce cee coe coe cl coe cee ce cel el ge ee od 


nnn eee ee ee ew ww lw lola lola leolololololololo! 


aad ddd deeded dee ede eee eee eee eee ectce 
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rare Oh iege se ve Ores 
BASRTL.SRCIBASCVTOUT .852;1 


59 
49 


0 
4 


w$ep-1986 $150: 


1 
1 


es 


SAP APP PP OCP CEP PEEP CAPE EE PPP BABE A EEA EAE LL PLEA AE LA LAL AA A A A 
COOOCOCOCOSOOOSOSCOOSOCOCOSOOCOCOCSOOOOOSOOOOOOCOOOoOoO 
Fl a dl dl ll ll le al lll a 


oe ad ng ag ag Og Od ne Od Ong Od eg Od OG Dang Od Od Od Od dF ns Od Og Od Og Og Og Sag Sang ey eG OG Sang OG Daeg Sang Dg Ong Ong Sees Seg Sad Seg Ses Sos Oey Od Sos Sad Od Og Og OG 


SSS 533SSSSSSSSSS 
OOOO OOOOCOOCOCOOOSOSOOOOOCOSOOCOOOOOOOOOOOOOOOoOOoOSooOoO i=) CoOCOooO 
SOOSOOOOOOOOOOOOOSCOOOOSOSOOSOOSOOSOOSOSCSOSOOSOOSOOOOOOOOOOOOOOOOOOOOOOO 


SOOOSOCOCOOOSGOSGOOSOOOSOSSOO OOCCOCOCOCCOOCoOOCoCoOoooo DOOCCOCCOOOOOOOOCOOoSoO 
ROIOOSOIONSOIOIEIOI OOOO 


ems 
BASSCVT_OUT 


10 


AE 


03 


67 


00000000° 
00000000' 
00000000° 
00000000" 


16 


14 


—o 
om 


Al 


5 


—Punmnmnm 
Omngon~n«as 


= 


00000000' 


30 nas 


ASCII 
ASCII 
DOT= 
STAR= 
MINUS= 
BLANK= 
= 
BLANKS= 
ZEROES= 
LAIN_E. : 
OFCC 8F BB 00000 PLAIN_E rom 
9 C2 00004 SUBL2 
DO 00007 MOVL 
¢ DO 0000 MOVL 
DD 0000D PUSHL 
0 pd0 0000 MOVL 
sf D5 0001 TSTL 
3 12 0001 BNEQ 
$? AF 9E OOOTA MOV 
F546 «CF 9E 00022 MOVAB 
Fre CF OE 000SG MOVAB 
000G 00 BO 0003D 1$: MOVL 
10€ ef B0 4 9 MOVW 
5 Di OO04A CMPL 
be is 004D BNEQ 
4 BO 0004F MOVW 
of 11 00053 BRB 
5 D1 00055 2$ CMPL 
6 is 0058 BNEQ 
5 B60 O005A MOVW 
4 11 0005 BRB 
03 9° 0060 3$ MOVW 
1C = AE ‘ 0064 4$ MOVAB 
010E ef B0 00069 MOVW 
5 ot O06F CMPL 
96 3 00072 BEQL 
A 99 0074 MOV 
F 0078 BRB 
A DO O0007A 5$ MOVL 
9 o it CMPL 
0, BLEQ 
5 4 st MOVL 
0 86 08 6s MOVW 
04 Aé C1 00089 7$ ADDL3 
8 D4 000 CLRL 
8 rE th TSTL 
bie Se fat 
ans 0098 BBC 
8 A6 7 9D DECL 
0 A 3 Baap 8$: MOVAB 
67 F9 OO00A4 CVILP 


13-00-1984 90: 10:2 reat Bliss-32 V4.0-74 
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vi 


Cmoon®W >< 


mee ee eee 


evVvVVVU UU 


OTS$ R_LUB 


#*M<R2 
2. S$? 


2, R6 


RO, R10 
b 


$ 
MINUS, M_D 
BLANK, ~B_D 
Ofs$ 
OfS$SA_CUR_LUB, CCB 
#270, EXP_STR_DESC+2 
DATA_TYPE, #27 
#4, EXP_STR_DESC 
ATA_TYPE, #28 
i. EXP_STR_DESC 
#3, EXP_STR_DESC 
EXP_STR> EXP STR_DESC+4 
#270, FRAC_STR_DESC+2 
ATA_TYPE, “#28 
NO_DIGITS, FRAC_STR_DESC 


NO-OIGITS. RO 
RO, @ 


R3,R6,R7,RB,RI,R1I0,R11> 


8$ 
L_BLOCK) 
L7BLOCK), R7 
#67 (R?) 


AC_STR_DESC 
RNEL-BLOTK), 16(KERNEL_BLOCK), - 
TRIDESC +4 


Page 139 


(24) 


; 4467 


4527 


67 
CVT_OuT 16-Sep-1984 00:10:59 AX-11 Bliss-32 V4.0-74 Page 140 
wees 1er3ep= 188s FFE sei23 | HeXsate sae ieagcv tour os2:1 9 85 
18 ; D} A8 CMPL DATATYPE, #27 : 4572 
AB BNEQ $ : 
1c AE 03 67 0 , CVIPS #6, (R7), #3, EXP_STR : 4573 
1¢ p B5 9S: CMPL DATA_TYPE, #28 + 4576 
B BNEG 0$ : 
1c AE 04 67 : 9 BA cVTPS #6, (R7), #4, EXP_STR > 4575 
1c AE 02 7 6 98 0 iH 10$:  CVTPS #6, (R7), #2, EXP_STR 3 4577, 
1 0c Ag E Q00C8 118: MOVAB (KERNEL BLOCK) ,~R1 > 4617. 
4 58 €9 OO0CC BLBC i 4615, 
6F Al AB 04 €1 OCF BBC #4, -95(CCB), 178 ; 4380. 
08 AE 10 AE DO 00004 MOVL FRAC_STR_DESC+4, TEMP_DESC+4 7 4597, 
04 AE 010E0001 8F 00 00009 MOVL  #1769472T, TEMP DESC : 4600 
10 AE DG 000E1 INCL  FRAC_STR_DESC+4 : 4605 | 
OC AE B87 O00ES DECW FRAC-STR™DESC ; 4606 
09 bE 9 00E7 BLBC —s- FLAGS, ‘12$ > 462 
0 00000000" FF 3 QOEA MOVAB L_BESC, RO ; 
50 00000000" EF 9E 000F3 128: MOVAB BLANK DESC, RO ; | 
0 DD OOOFA 138:  PUSHL R : | 
18 AE 9F OOOFC PUSHAB EXP_STR_DESC > 4615. 
00000000' EF 9F OOOFF PUSHAB SC ; | 
18 AE 9F 00105 PUSHAB FRAC_STR_DESC ; | 
00000000" EF 9F 00108 PUSHAB DOT DESC ; | 
18 AE 9F 0010E PUSHAB TEMP_DESC ; | 
52 D4 00111 CLRL sR > 4617. 
61 05 00113 TSTL = (R1) : | 
08 18 0011 BGEQ «=s-«14$ ; 
52 D6 00117 INCL R2 : 
50 00000000" EF 9E 00119 MOVAB MINUS_DESC, RO ; | 
14 11 00120 BRB 16$ ; | 
09 18 AE 9 00122 14$:  BLBC FLAGS, 15$ $ 4622 
50 00000000' EF 00126 MOVAB NULL_DESC, RO ; | 
7 11 00120 BRB & ; 
50 00000000' EF 9 OO012F 15$: MOVAB BLANK DESC. RO ; 
0 DD 00136 168:  PUSHL R : | 
59 DD 00138 PUSHL BAS_OUT_STR > 4615 | 
000000006 00 08 Fe O13, CALLS STRSCONCAT ; 
09 Ag 9 0143 17$:  BLBC FLAGS, 18$ > 4654. 
50 00000000' FF OE 0146 MOVAB NULL_OESC, RO ; | 
7 11 0014D BRB 19$ ; 
50 00000000' Ef 9E O14F 18$:  MOVAB BLANK DESC, RO ; 
0 DD 136 19$:  PUSHL R ; 
18 AE 9F 00158 PUSHAB EXP_STR_DESC > 4640 
00000000" EF 9F 00158 PUSHAB ; 
AE 9F 00161 PUSHAB FRAC_STR_DESC 
00000000 a 9F 00164 PUSHAB DOT _DESC ; 
¢ D4 OO16A CLRL RR > 4643, 
D3 16C TSTL = (RI) ; 
: 1g BGEQ = 208 ; 
06 1 INCL =R ; 
50 00000000' fF 9 V7 MOVAB —MINUS_DESC, RO ; 
09 14 AE £9 178 20$:  BLBC FLAGS, 218 : 4648 
50 00000000" EF 9E 0017F MOVAB NULL_DESC, RO ; 


7 
BASSCVT_OUT 1bese =1984 00:10:5 AX-11 Bliss-32 V4.0-74 Page 141 
mitts ¥ 1a-Sep-19 4 90:19:28 BASRTL.SRC IBASCVTOUT .B 2:1 oe M4) 
07 11 001 BRB 22$ : 
50 00000000" EF 9€ 001 j 4 MOV BLANK DESC, RO : 
3 BD Rais] “buat SAS. OUT. STR + 4640 
000000006 99 7 Ff 198 CALLS #7, STRSCONCAT : 
0 D6 0019A 23$:  MOVL RO. STATUS ; 
c 5 i 19D BiacOéF Acs + 4663 
9 1A BLBC 3=s-s«aR2,,. 248 + 4666 
1 1 DO OO1A MOVL #1. RI F 
7 11 148 BRB 26$ F 
1 D4 OO1A8 248 CLRL sR : 
51 03 bd OOiAC 258: fom so) 1 + 4663. 
iC D1 OOIAF 268:  CMPL  =—DATA_TYPE, #28 > 4672. 
0d if 0182 BNEO 7$ : 
50 SAD 00184 MOVL NO_DIGITS, RO : 
05 50 D1 00187 CMPL RO; @ : 
08 15 001BA BLEG 288 : 
50 05 00 001B8C MOVL #5, RO : 
03 11 001BF BRB : 
50 SA DO 0011 7$:  MOVL. NO_DIGITS, RO : 
51 50 CO 001C4 28$:  ADDL2 R ; 
1B 55 D1 001C7 CMPL  DATA_TYPE, #27 + 4675 
05 12 OO1CA BNEQ  29$ ; 
* O5 41 Ooles pres 8ag 
1C 55 Dl ety 298:  CMPL  DATA_TYPE, #28 : 4677 
05 12 001D4 BNEQ ; 
50 07 DO 00106 MOVL 4&7, RO ; | 
50 8 0 Soibs sos: Ae BSS Ro : 4679. 
64 51 20 C1 0010 308: ADDL3 RO, R1, (BAS_OUT_STR_LEN) + 4673 | 
UO RB Be, juny i 
OF CC St BA 00168 POPR #*M<R2,R3,R6,R7,R8,R9.R10,R11> : 
05 OO1EC RSB ; 
3; Routine Size: 493 bytes, Routine Base: _BASSCODE + 2056 
; 4046 4684 1 END ‘End of module BAS$SCVT_OUT 
: 4048 4686 0 ELUDOM 
; PSECT SUMMARY 
; Nane Bytes Attributes 
> BASSCODE 8771 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC ALIGN(2) 
> TBASSDATA 40 NOVEC, WRT. RD {NOEXE.NOSHR, LCL. REL. CON, PIC. ALIGN(2) 


Library Statistics 


cocccece Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBISTARLET.L32;1 9776 13 0 581 00:01.1 


COMMAND QUALIFIERS 
Se SSP CRE CROCE SOLE SME TEA, (OP ONL EE DPUBTRAEE AL ESL 190 SOAS YTOYT 0B J908. 9 BAEC VTON MSRC$:BASCVTOUT/UPDATE=(ENH$:BASCVTOUT 


; Size: 7687 code + 1124 data bytes 
; Run Time: 02:18.0 

; Elapsed Time: 05:15.0 

; Lines/CPU Min 2037 


; Lexemes/CPU-Min: 18741 
; onary Used: 757 pages 
; Compilation Comp!ete 


pAgsevT out 1$-se0-1984 90:10:58 YAKeHY BLieg=sz weaOc7eg. Page Jig 


MENT CORPORATION 
SPRL A et 9 Na 


e 
A 


AH-BT13A-SE 
VAX/VMS V4.0 


0020 
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